Oracle8i redo変更

select group#,thread#,sequence#,bytes members,status from v$log;

alter database TEST drop logfile group 1;
alter database TEST drop logfile group 2;
alter database TEST drop logfile group 3;
alter database TEST drop logfile group 4;

select group#,thread#,sequence#,bytes members,status from v$log;

alter database TEST add logfile group 1 ‘/test/TEST/TEST_REDO01.dbf’ size 500M reuse ;
alter database TEST add logfile group 2 ‘/test/TEST/TEST_REDO02.dbf’ size 500M reuse ;
alter database TEST add logfile group 3 ‘/test/TEST/TEST_REDO03.dbf’ size 500M reuse ;
alter database TEST add logfile group 4 ‘/test/TEST/TEST_REDO04.dbf’ size 500M reuse ;

alter system switch logfile;

EXCEL VBA ソースコードメモ

これは本当にメモ。

暇なときに簡単なゲームとか作ってたらなんだかEXCEL VBAに興味が。
こういうのがみんなやりたいわけだよ!
遊びたいのだよ技術で!
っと俺は思う。

Sub excect()
Set beginRow = Range(“A18″)
Set endRow = Range(“B18″)

If beginRow = endRow Then
Else
‘MsgBox beginRow & endRow
endRow = endRow + 1
MsgBox “A” & endRow
Rows(endRow).Insert
End If

End Sub

Sub ボタン1_Click()
Call delete
End Sub
Sub ボタン2_Click()
Call line
End Sub
Sub ボタン3_Click()
Call excect
End Sub

Sub macro1()

‘ Macro1 Macro

‘ ShortCutKey Ctrl + q
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste

End Sub

Sub Macro2()

‘ Macro2 Macro

‘ ShortCutKey Ctrl + w

ActiveCell.Offset(0, 2).Select
Selection.EntireColumn.Insert

End Sub

Sub G_ボタン1_Click()

Dim player As Range
Dim enemy As Range

Set player = Range(“E15″)
Set enemy = Range(“F15″)

‘player = Int(3 * Rnd + 1)
enemy = Int(11 * Rnd + 1)

‘TextBox1 = “ここに入力してください。”

If enemy = 1 And player = 2 Then Range(“e18″).Value = “あなたの負けです。”
‘敵が「グー」自分が「チョキ」を出しているならば「あなたの負けです。」と表示させます。

If enemy = 1 And player = 3 Then Range(“e18″).Value = “あなたの勝ちです。”
‘敵が「グー」自分が「パー」を出しているならば「あなたの勝ちです。」と表示させます。

If enemy = 2 And player = 1 Then Range(“e18″).Value = “あなたの勝ちです。”
‘敵が「チョキ」自分が「グー」を出しているならば「あなたの勝ちです。」と表示させます。

If enemy = 2 And player = 3 Then Range(“e18″).Value = “あなたの負けです。”
‘敵が「チョチ」自分が「パー」を出しているならば「あなたの負けです。」と表示させます。

If enemy = 3 And player = 1 Then Range(“e18″).Value = “あなたの負けです。”
‘敵が「パー」自分が「グー」を出しているならば「あなたの負けです。」と表示させます。

If enemy = 3 And player = 2 Then Range(“e18″).Value = “あなたの勝ちです。”

‘If player = enemy Then
‘ Range(“e18″).Value = “あいこ”
‘ else if player <> enemy then
‘Range(“e18″).Value = “ABC”

End Sub
Sub G_ボタン4_Click()
Dim player As Range
Dim enemy As Range
Dim playerPoint As Range
Dim enemyPoint As Range

Set player = Range(“a43″)
Set enemy = Range(“b43″)

Set playerPoint = Range(“a49″)
Set enemyPoint = Range(“b49″)

player = player + Int(11 * Rnd + 1)
enemy = enemy + Int(11 * Rnd + 1)

If enemy = 21 And player = 21 Then
Range(“e45″).Value = “引き分けです。player=” & player & ” enemy=” & enemy
End If

If enemy = 21 And player <= 20 Then Range("e45").Value = "あなたの負けです。player=" & player & " enemy=" & enemy enemyPoint = enemyPoint + 1 End If If enemy >= 20 And player = 21 Then
Range(“e45″).Value = “あなたの勝ちです。player=” & player & ” enemy=” & enemy
playerPoint = playerPoint + 1
End If

If enemy <= 20 And player <= 20 Then Range("e45").Value = "カードを引いてください。" End If 'If enemy >= 22 And player <= 22 Then 'Range("e45").Value = "enemyのバーストです。あなたの勝ちです。player=" & player & " enemy=" & enemy ' player = 0 ' enemy = 0 ' playerPoint = playerPoint + 1 'End If If enemy <= 22 And player >= 22 Then
Range(“e45″).Value = “playerのバーストです。あなたの負けです。player=” & player & ” enemy=” & enemy
player = 0
enemy = 0
enemyPoint = enemyPoint + 1
End If

If enemy >= 22 And player >= 22 Then
Range(“e45″).Value = “お互いバーストです。引き分けです。player=” & player & ” enemy=” & enemy
player = 0
enemy = 0
End If

End Sub
Sub G_ボタン5_Click()

Dim player As Range
Dim enemy As Range
Dim playerPoint As Range
Dim enemyPoint As Range

Set player = Range(“a43″)
Set enemy = Range(“b43″)

Set playerPoint = Range(“a49″)
Set enemyPoint = Range(“b49″)

If player = 0 Then
Range(“e45″).Value = “カードを引いてください。”
End If

If enemy = player Then
Range(“e45″).Value = “引き分けです。player=” & player & ” enemy=” & enemy
player = 0
enemy = 0
End If

If enemy > player Then
Range(“e45″).Value = “あなたの負けです。player=” & player & ” enemy=” & enemy
enemyPoint = enemyPoint + 1
player = 0
enemy = 0
End If

If enemy < player Then Range(“e45″).Value = “あなたの勝ちです。player=” & player & ” enemy=” & enemy playerPoint = playerPoint + 1 player = 0 enemy = 0 End If End Sub

Excel VBA セルの削除とかをマクロでやると作業効率UP!

ポイントは、マクロをショートカットキーに割り当てます!
これをすることによって、簡単なマクロを色々作ってプチ作業効率化ができます!
っといってもEXCEL VBAはほぼ素人な私ですが・・・・。

というか素人でも割りかし簡単にできちゃいます!

これとか、ちょっとセルを削除したい時に使えます。
Offsetの部分を変えて、deleteの数とか変えるだけで好きなようにできます。
こういうのがEXCEL VBAの醍醐味だと俺は思う。

Sub delete()

‘ Macro2 Macro

‘ ShortCutKey Ctrl + p

‘ActiveCell.Offset(1, 0).Select
‘Selection.EntireColumn.EntireRow.delete

ActiveCell.Offset(1, 0).Select
Selection.EntireRow.delete
Selection.EntireRow.delete
Selection.EntireRow.delete
ActiveCell.Offset(2, 0).Select

End Sub

Sub oneRowDelete()
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.delete
End Sub

Sub Delete_two()
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.delete
Selection.EntireRow.delete
Selection.EntireRow.delete
Selection.EntireRow.delete
ActiveCell.Offset(2, 0).Select
End Sub

Excel VBA 印刷範囲の変更を手でやるのがめんどくさいのでマクロでやる

こんな感じでやれば出来る。

Sub line()
Dim startRow As Range
Dim endRow As Range

Set startRow = Range(“F7″)
Set endRow = Range(“F8″)

‘MsgBox startRow
‘MsgBox endRow

‘ActiveSheet.PageSetup.PrintArea = “$A$1:$E$200″
ActiveSheet.PageSetup.PrintArea = “” & startRow & “:” & endRow & “”

End Sub
Sub ボタン1_Click()
Call delete
End Sub
Sub ボタン2_Click()
Call line
End Sub

GITWeaverのダウンロードインストール(msysgitとtortoisegitもインストール)

参考ページ:http://d.hatena.ne.jp/yonesaka/touch/searchdiary?word=*%5B%B5%BB%BD%D1-WEB%C1%B4%C8%CC%5D&of=5

GITWeaver(github)

https://github.com/ChrisMcKee/gitweaver

↓GITWeaverダウンロードページはここクリック

https://github.com/ChrisMcKee/gitweaver/downloads

1.まずはsysgit(gitをwindowsで使うためのソフト)をダウンロードし、インストールする。
ダウンロードページはここ -> http://code.google.com/p/msysgit/downloads/detail?name=msysGit-fullinstall-1.7.11-preview20120620.exe

ダウンロードURLはここ(私はこれをダウンロードした。) -> http://msysgit.googlecode.com/files/msysGit-fullinstall-1.7.11-preview20120620.exe
-> OK -> DOS窓が立ち上がりなにやら処理が始まる(暫くかかる) –>

2.TortoiseGitのダウンロードとインストール。

http://code.google.com/p/tortoisegit/

TortoiseGitの64bit版ダウンロードURLはここ -> http://tortoisegit.googlecode.com/files/TortoiseGit-1.7.12.0-64bit.msi
Next -> Next -> OpenSSH,Git default SSH Client -> Next -> Install -> Finish

日本語化
TortoiseGitの64bitのLanguage PacksダウンロードURLはここ -> http://tortoisegit.googlecode.com/files/TortoiseGit-LanguagePack-1.7.12.0-64bit-ja.msi
Next -> FInish

・Settingを選択して、General -> Language -> 日本語(日本)
・MsysGitのパス設定(C:\msysgit\msysgit\bin\)※環境により変わります。
・Git -> 名前、メール を入力する。

・外部DLLへのパスに「C:\msysgit\msysgit\mingw\bin;」を指定

3.gitweaver(Dreamwaverでgitを使うためのソフト)のダウンロード、インストール

https://github.com/ChrisMcKee/gitweaver/downloads

ダウンロードURL -> https://github.com/downloads/ChrisMcKee/gitweaver/GITWeaver%20-%200.9.6%20-%20English.zip

windows エクスプローラーで、右クリック→ git create repository here

git 上で下記を実行
# git config –add receive.denyCurrentBranch ignore

 

phpmyadminの設定

①wgetでphpMyAdmin3.4.5のモジュールをダウンロードし、公開ディレクトリに配置する。
# wget http://sourceforge.net/projects/phpmyadmin/files/phpMyAdmin/3.4.5/phpMyAdmin-3.4.5-all-languages.tar.gz/download
# tar zxvf phpMyAdmin-3.4.5-all-languages.tar.xz
# mv phpMyAdmin-3.4.5 /var/www/html/phpMyAdmin

②config.sample.inc.phpを元にconfig.inc.phpを作成
# cp -p config.sample.inc.php config.inc.php
③config.inc.phpファイルを以下に修正
# vi config.inc.php

/* Server parameters */
$cfg['Servers'][$i]['host'] = ‘localhost’;

$cfg['Servers'][$i]['host'] = ‘<IPアドレス>’;

④phpMyAdmin.confファイルを作成し、アクセス制限する。
# vi /etc/httpd/conf.d/phpMyAdmin.conf
⑤phpMyAdmin.confファイルを以下に修正
Alias /phpmyadmin /var/www/html/phpMyAdmin

<Location /phpmyadmin>
Order deny,allow
Deny from all
Allow from 127.0.0.1
Allow from <IPアドレス>
</Location>

⑥ユーザを作成し、ログイン確認
# mysql -h <IPアドレス> -u root -p

mysql> CREATE USER ‘test’@’%’ IDENTIFIED BY ‘***’;
mysql> GRANT ALL PRIVILEGES ON * . * TO ‘test’@’%’ IDENTIFIED BY ‘***’ WITH GRANT OPTION MAX_QUERIES_PER_HOUR 0 MAX_CONNECTIONS_PER_HOUR 0 MAX_UPDATES_PER_HOUR 0 MAX_USER_CONNECTIONS 0 ;
# mysql -h <IPアドレス> -u test -p
→ OK:ユーザに対して全てのホストに対する権限を付与したところログインが出来た。

⑦web上からphpmyadminにアクセス

http://<IPアドレス>/phpMyAdmin

http://<IPアドレス>/phpMyAdmin/ 接続 –> mcryptがない、文字化け

# wget ftp://rpmfind.net/linux/epel/5/i386/mcrypt-2.6.8-1.el5.i386.rpm –> OK
エラー:mcrypt 拡張がありません。PHP の設定をチェックしてみてください。

# wget ftp://rpmfind.net/linux/remi/fedora/6/remi/i386/php-mcrypt-5.3.8-5.fc6.remi.i386.rpm
# yum install php-mcrypt-5.3.8-5.fc6.remi.i386.rpm –> OK

エラー:phpMyAdmin の設定保存場所が完全に設定されていないため、いくつかの拡張機能が無効になっています。理由についてはこちらをご覧ください。
・phpmyadmin配下のscript/create_table.sqlを実行
・config.inc.phpの/* Storage database and tables */配下のコメントアウトをはずす。
→ OK

エラー:PHP の mbstring 拡張が見つかりませんでした。マルチバイト文字セットを使用しているようですが、mbstring 拡張がないと phpMyAdmin は文字列を正しく分割できないため予期しない結果になることがあります

# wget ftp://rpmfind.net/linux/remi/fedora/6/remi/i386/php-mbstring-5.3.8-5.fc6.remi.i386.rpm
# php-mbstring-5.3.8-5.fc6.remi.i386.rpm –> OK