[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/1/23
'
'データの空行指定
Dim emptyRow: emptyRow = 1
Dim koteiCell: koteiCell = "A"
' 現在選択されている行を保持
Dim startRow: startRow = 0
Dim endRow: endRow = 0
Dim r As Range
Dim count As Integer
For Each r In Range(Selection.Address)
If count = 0 Then
startRow = r.Row
End If
endRow = r.Row
count = count + 1
Next
'Range(Selection, Selection.End(xlUp)).Select
Dim sabun: sabun = endRow - startRow
Range(Cells(endRow + 1, 2), Cells(endRow + emptyRow + sabun, 4)).EntireRow.Insert
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
'挿入する場所を指定
Range(koteiCell & endRow + 1).Select
ActiveSheet.Paste
Selection.End(xlToLeft).Select
End Sub
TODO・・・やらなければいけないこと。
FIXME・・・正しくない。正しく動いていない。修正が必要
XXX・・・正しくないがとりあえず動いている。
----------
使用例)
//TODO 変数名を分かりやすく変更する
//TODO このメソッドはあとで作成
//FIXME 第二引数がfalseの場合の動作が正しくないので要修正
//FIXME テストが失敗するのであとで修正
SQL> set echo off コンソールメッセージ非表示(デフォルトはOFF)
SQL> set linesize 1000 1行のサイズを設定(1レコードの表示が1行に収まるように調節する)
SQL> set pagesize 0 ページ区切りをなくす(ページ間のセパレータが無くなる)
SQL> set trimspool on 行末のスペースを削除
SQL> set colsep ',' 項目区切り文字を設定
SQL> spool c:\work.csv 出力先ファイルを指定「c:\work.csv」
SQL> select * from SAMPLE_TABLE 出力対象のデータをselectし、取得結果をスプールする
SQL> spool off スプールを終了しファイルを閉じる
これを実行すると、work.csvにSELECTした結果が出力される。
例)
0001,aaa,sample,100,AAA,2012/10/10
0002,bbb,sample,200,BBB,2013/10/10
0003,ccc,sample,400,DDD,2013/12/15
public static void main(String[] args) {
try {
Class clazz = Class.forName("kenchi.SampleB");
SampleB sb = (SampleB)clazz.newInstance();
Method[] methods = clazz.getMethods();
for(Method method : methods) {
if(method.getName().startsWith("writeManyo")) {
method.invoke(sb);
}
}
} catch (ClassNotFoundException e) {
// TODO 自動生成された catch ブロック
e.printStackTrace();
} catch (InstantiationException e) {
// TODO 自動生成された catch ブロック
e.printStackTrace();
} catch (IllegalAccessException e) {
// TODO 自動生成された catch ブロック
e.printStackTrace();
} catch (IllegalArgumentException e) {
// TODO 自動生成された catch ブロック
e.printStackTrace();
} catch (InvocationTargetException e) {
// TODO 自動生成された catch ブロック
e.printStackTrace();
}
SampleB mmb = new SampleB();
mmb.writeManyo();
}
public class SampleB implements ISample{
private String age;
static{
System.out.println("static処理");
}
public SampleB(){
System.out.println("コンストラクタ処理");
}
public void writeManyo() {
System.out.println("まにょ");
}
}
staticメソッド・・・そのクラスが呼び出されたときに一番最初に一度だけ動く処理。
コンストラクタ・・・クラスのインスタンスが作られるときに最初に動く処理。