約 2,871,805 件
https://w.atwiki.jp/annbeyoffice/pages/14.html
EXCEL講座一覧 カウンタ合計 - 人 今日のカウンタ - 人 EXCELの基礎編 【EXCELの基本操作おさらい】 【検索・ジャンプ・置換】 データ活用編 【データの並べ替え】 【オートフィルタの使用】 WORD・POWERPOINTと共通 図・オートシェイプ(図形)・クリップアートの操作は一緒ですので、リンクを貼っておきました。 【図・オートシェイプ・クリップアートを挿入、操作する】 EXCEL応用・関数編 操作法 【ビポッドテーブル?いいえピボットテーブルです^^; 】 【ピボットテーブルを使い尽くす】 関数 【データから該当するデータの合計を求めたい。|データベース関数を使おう】 【絶対か!?相対か!?】 【行か列だけを絶対参照にしたい】 こんなときどうする(トラブル解決編) 【起動がものすごく遅い場合に確認すること】
https://w.atwiki.jp/coupledaysoff/pages/51.html
2008-07-01 16 09 51 (Tue) FSOやFolderクラスを有効にする ファイルの存在確認 ユーザ定義クラス(構造体)を作成する ワークブック存在確認 ワークブック間のワークシートコピー 目次シート作成 相対参照を絶対参照に置換 行コピー挿入 選択範囲の変更を検知する(イベントハンドラ)
https://w.atwiki.jp/bottle/pages/21.html
スクリプトからVBA for Excelを動かす注意事項 スクリプト例 参照:Excelをバックエンドで処理させたい場合 注意:R6以降のEvaluate関数の引数について ツッコミ・コメント スクリプトからVBA for Excelを動かす この手の質問がやはり多めなので、一応掲載。 やり方次第ですが、あるビューに表示されたDBの文書を EXCELで書き出したりすることも可能です。 注意事項 VBA for Excelでの各メソッドで使用されるxl****のような定数は、 ノーツ・スクリプトにそのまま入力してもエラーするだけです。 かならず、以下のスクリプト例のようにConst宣言するか、 値のまま使用するかのどちらかで使用が可能になります。 定数の値のチェック方法は、VBA for Excelの定数の値を調べるを参照してください。 スクリプト例 以下のスクリプトは、あるCSVファイルをEXCELで整形及び集計させるための ボタン・アクション用スクリプト。 #管理人の一言 前に懇談室でスクリプトからEXCELでソートができないというトピックありましたが、 それの回答になるかな? (あの時はちとトラブってて回答できなかったの。。。) あとは複雑な式言語(@関数)をどうやってスクリプトに組み込むか。の参照にもなると思います。 で、管理人はなぜExcel VBAを遅いフロントエンドで処理するかっていうと 動いてるのが実感できるように(PCがロックしてると思われるのがヤダ)してるだけ。 Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set db = session.CurrentDatabase Set uidoc = ws.CurrentDocument Set doc = uidoc.Document Excelの定数は使えないので実際の値を定義します(定数名は同じにしてあります) Const xlPortrait = 1 縦 入力チェック******************************************** flg = Messagebox ("集計表の作成を開始しますか?",33,"開始確認") If flg = 2 Then Messagebox"集計表の作成を中断します",64,"処理中断" Exit Sub End If ERRMSG = "以下の項目が入力・選択されていません。" motoERRMSG = ERRMSG 入力チェック If doc.Path(0) = "" Or doc.Path(0) = ".csv" Then ERRMSG = ERRMSG + Chr(10) + "・パス取得" End If If ERRMSG motoERRMSG Then Messagebox ERRMSG , MB_OK, "入力エラー" Exit Sub End If 入力チェック終わり*********************************** Dim XObj As Variant Excel自体のオブジェクト Dim Xwkbk As Variant ワークブック(1Excelファイル) Dim XSheet1 As Variant シート Dim XSheet2 As Variant シート Dim i As Integer Dim quotes As String Dim strFormula1 As String, strFormula2 As String quotes = Chr(34) エクセルのインスタンスを作成します Set XObj = CreateObject("Excel.Application") XObj.Visible = True Set Xwkbk = XObj.workbooks Xwkbk.Open(doc.Path(0)) 対象のファイルを開く Set XSheet1 = XObj.Worksheets(1) 本体の表のシート ★R6以降ではここから注意必要⇒参照★ =IF(OR(LEFT(RC[2],1)="P",LEFT(RC[2],1)="R",LEFT(RC[2],1)="Z")=TRUE,RIGHT(RC[2],1), _ IF(LEFT(RC[2},1)="K",IF(MID(RC[2},2,1)="H","E",MID(RC[2},2,1)),IF(LEFT(RC[2},1)="H","E",LEFT(RC[2},1)))) の式を変数に設定 strFormula1 = "=IF(OR(LEFT(RC[2],1)=" quotes "P" quotes ",LEFT(RC[2],1)=" _ quotes "R" quotes ",LEFT(RC[2],1)=" quotes "Z" quotes _ ")=TRUE,RIGHT(RC[2],1)," "IF(LEFT(RC[2],1)=" quotes "K" quotes _ ",IF(MID(RC[2],2,1)=" quotes "H" quotes "," quotes "E" quotes _ ",MID(RC[2],2,1)),IF(LEFT(RC[2],1)=" quotes "H" quotes "," quotes "E" quotes _ ",LEFT(RC[2],1))))" =IF(LEFT(RC[1],1)="K","K" MID,MID(RC[1],2,5))の式を変数に設定 strFormula2 = "=IF(LEFT(RC[1],1)=" quotes "K" quotes "," quotes "K" quotes _ " MID,MID(RC[1],2,5))" With XSheet1 .Name = "data" シート名をdataに変更 .Activate シートをアクティブに 表の整形開始 .Columns.EntireColumn.AutoFit 列幅を自動で設定 .Columns("A A").ColumnWidth = 10 A列幅を10に .Columns("C C").ColumnWidth = 40 C列幅を40に .Columns("B C").Insert B~C列を挿入 表題と式をB~C列に埋め込み .Range("B1").FormulaR1C1 = "S/E/M" .Range("C1").FormulaR1C1 = "共有No" .Range("B2").FormulaR1C1 = strFormula1 .Range("C2").FormulaR1C1 = strFormula2 EndCellAdr = .Range("A1").End(-4121).Row 表の一番下のセルの行番号取得 .Range("B2 C2").Copy .Range("B3 C" EndCellAdr ).PasteSpecial 表の一番下までコピー内容を貼付 小計行を削除する。 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") 小計行を検索 Dim FCRow As Long Do While Not FCell Is Nothing FCRow = FCell.row .Rows(FCRow).Delete 検索された小計行を削除 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") Loop 今のシートをコピーして集計用シート作成 .Copy(XSheet1) End With Const xlSum = -4157 Dim aryCell(117) As Integer, cnt As Integer, m As Integer cnt = 17 初期化 For m = 0 To 117 aryCell(m) = cnt cnt = cnt + 1 Next Set XSheet2 = XObj.Worksheets("data (2)") 本体の表のシート With XSheet2 集計用シートの内容をソート .Name = "集計1" シート名を集計1に変更 .Activate 表の一番下のセルの行番号取得 EndCellAdr = .Range("A2").End(-4121).Row .Range("A2").Select ソート実行(第1ソート・キーはA2、第2ソート・キーはC2) .Range("A2 ED" EndCellAdr).Sort XSheet2.Range("A2"), 1, XSheet2.Range("C2") まず区分で集計 .Range("A1 ED" EndCellAdr).Subtotal 1, xlSum, aryCell, False 再度表の一番下のセルの行番号取得 EndCellAdr = .Range("A1").End(-4121).Row .Range("A1 ED" EndCellAdr).Subtotal 3, xlSum, aryCell, False 次に共有Noで集計 End With End Sub 参照:Excelをバックエンドで処理させたい場合 以下の方法を使用することによりExcel出力が早くなります。 Re FORMの内容をEXCELに出力して印刷したい。(by ドミノ懇談室(2006~)) #作成者 :かえる りわ (Riwa Kaeru) 2007/1/29 (Mon) 01 52 PM Set excelApplication = CreateObject("Excel.Application") Set excelWorkbook = excelApplication.Workbooks.open("ファイル名") のように、ファイルをバックグラウンドで開き、 データの書き込みが全て終了した後に excelApplication.Visible = True で表示してあげれば表示更新の負荷を減らせるし、 データ書き込み中にユーザに触られる心配もありませんよ。 注意:R6以降のEvaluate関数の引数について 上に挙げた例で、R6以降にてEvaluate関数を使用するとエラーになるそうです。 R5では問題なく動きますけどね。。。 引数の式言語(@関数)にダブルクォーテーション等特殊文字を使用する場合の方法は以下を御参照ください。 Evaluate 関数が「Operation failed」エラーで終了する(by IBM公式) ツッコミ・コメント 名前 コメント
https://w.atwiki.jp/yatteyoruby/pages/24.html
概要 rubyからWindowsのCOMを叩くとExcelのデータの中身を操作・閲覧できます。 やり方は下記のページなんかに記述されています。 Rubyist Magazine - Win32OLE 活用法 【第 2 回】 Excel excel_lib rubyのWIN32OLEライブラリを用いるとExcelが操作できます。 しかし、ExcelにはWorkbook,Worksheet,Rangeオブジェクトなどがありますが、 rubyのWIN32OLEで扱うオブジェクトはすべてWIN32OLEクラスになってしまいます。 その問題を解決し、Workbook,Worksheet,Rangeオブジェクトを別個のクラスとして扱うためのライブラリがRubyでExcelのexcel_libとなります。 このライブラリを使うと以下の利点があると思います。 要するにWIN32OLEレベルでExcelをさわるよりこのライブラリを使った方が扱いやすいと思います。 Workbook,Worksheet,Rangeオブジェクトを別個のクラスとして扱えるためわかりやすい。 Workbook,Worksheet,Rangeオブジェクトを拡張したい場合、対応するクラスを拡張すればよい。 各クラスは元のオブジェクトを保持しており、実装していないメソッドも実行でき、拡張が容易に行える。 ライセンスもrubyライセンスなので改変・配布が容易に行える。 ライブラリはrubyスクリプト1ファイルなので解析が容易に行える。 my_excel_lib excel_libを自分に使いやすいように変更してmy_excel_libとしました。 使用例 以下を実行すると、すべてのセルの値を出力し、2列目のセルの値が存在する場合testに変えたtest2.xlsを作成します。 -例 require my_excel_lib Excel.run(false) { |excel| book = excel.copy_book("test.xls") book.worksheets.each { |sheet| sheet.used_range.rows.each { |row| puts row.value.join(",") if row[1] row[1] = "test" end } book.save("test2.xls") } }
https://w.atwiki.jp/clipping-data/pages/10.html
Excelマクロ もっと仕事を楽にするために勉強中 目次 Excelマクロ単一セルの参照 範囲指定によるセル参照 複数範囲指定によるセル参照 選択しているセルの参照→Selection 現在作業対象となっているセルの参照→ActiveCell データの下端のセルの参照 シートを指定してセルを参照 単一セルの参照 Range("A1").Select Cell("1,1").Select 範囲指定によるセル参照 Range("A1 C6").Select Range("A1","C6").Select Range(cell(1,1),cell(6,3)).Select 複数範囲指定によるセル参照 Range("A1 A2,C3 C4").Select 選択しているセルの参照→Selection Range("A1 C6").Select→Selection.Select 現在作業対象となっているセルの参照→ActiveCell Range("A1 B3").Select→ActiveCell.Select データの下端のセルの参照 Cells(1,5以上の数字).End xlUp.Select 上端→xlUp 下端→xlDown 右端→xlToRight 左端→xlToLeft シートを指定してセルを参照 Sheets("シート名").(ドット)参照プロパティ
https://w.atwiki.jp/nisya/pages/38.html
共通 未定義変数検知 自動マクロ起動 入力情報(シート)取得[getSysParaBySheet] アクセスログ出力クラス[cPutAccessLog] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] 保存期間満了ログ削除[Public Function deleteLogSaveLimitOver] ログ出力[Public Function putLog] 終了[Public Function Terminate] ブック制御クラス[cBookControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] Excelユーザ名取得[Public Function getExcelUserName] Excel組織名取得[Public Function getExcelOrganizationName] Excelメモリ情報取得[Public Function getExcelMemory] ステータスバー制御開始[Public Function StatusBarStart] ステータスバー表示[Public Function StatusBarPut] ステータスバー制御終了[Public Function StatusBarEnd] カーソル処理中[Public Function CursorWait] 画面更新中止[Public Function DisplayUpdateStop] 画面更新開始[Public Function DisplayUpdateStart] カーソル通常[Public Function CursorNormal] ファイル選択ダイアログ[Public Function getFileNameByDialog] 指定ブックオープン済チェック[Public Function isCheckOpenSelectBook] Excelタイトル変更[Public Function setExcelTitle] Excelタイトル変更停止[Public Function unsetExcelTitle] 終了[Public Function Terminate] シート制御クラス[cSheetControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] シート可視不可視[Public Function VisibleSheet] シート存在チェック[Public Function isCheckFoundSheet] シート追加[Function inserSheetName] シート名変更[Function updateSheetName] シート削除 文字列操作 文字列分離[SpilitString] 指定文字列内パターンマッチング[isPatternMatching] メッセージクラス(シート定義)[cMsgBySheet] 初期化Public Function Initialize] ステータス取得[Public Function getStatus] メッセージ内容取得[Public Function getMessage] メッセージボックス表示[Public Function MessageBox] YesNoボックス表示[Public Function YesNoBox] メッセージグループ取得[Public Function getMsgGroup] エラーレベル判定[Public Function isLevelError] 警告レベル判定[Public Function isLevelWarning] 通常レベル判定[Public Function isLevelNormal] 終了[Public Function Terminate] ファイルクラス[cFile] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] 絶対パス変換[Private Function updateRootPathForWin] パス付ファイル名分離[Private Function SplitFileIncPath] パス取得[Public Function getPathName] ファイル名取得[Public Function getFileName] ファイル存在チェック[Public Function isExist] ファイル削除[Public Function deleteFile] ファイルオープン(読込用)[Public Function openFileForRead] ファイルオープン(上書用)[Public Function openFileForOutput] ファイルオープン(追記用)[Public Function openFileForAppend] ファイル書き込み[Public Function writeFileLine] ファイルクローズ[Public Function closeFile] 終了[Public Function Terminate] マシン制御クラス[cMachineControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] コンピュータ名取得[Function getComputerName] 環境変数取得[Function getEnv] ログインユーザ名取得[Function getLoginUserName] OS名取得[Function getOsName] 終了[Public Function Terminate] EXCELブッククラス 初期化 処理概要 戻り値 引数 ステータス取得 処理概要 戻り値 引数 ブック読取専用パスワード設定 処理概要 戻り値 引数 ブック書込専用パスワード設定 処理概要 戻り値 引数 指定ブックオープン済チェック 処理概要 戻り値 引数 ブックオープン 処理概要 戻り値 引数 シート取得 処理概要 戻り値 引数 全シート名取得 処理概要 戻り値 引数 ブッククローズ 処理概要 戻り値 引数 終了 処理概要 戻り値 引数 命名規則 変数名 共通 未定義変数検知 Option Explicit 自動マクロ起動 M_BookAuto_1.0.txt 入力情報(シート)取得[getSysParaBySheet] Ver 1.0 M_getSysParaBySheet_1.0.txt [戻り値] String 取得したパラメータ値 [引 数] isSheetName(String) 取得するシート名 isParNameString(String) パラメータ名 アクセスログ出力クラス[cPutAccessLog] Ver 1.0 Z_cPutAccessLog_1.0.txt cPutAccessLog_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isFormatIncPath(String) ファイル名(パス付) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし 保存期間満了ログ削除[Public Function deleteLogSaveLimitOver] [戻り値] String CSV形式でプライベート変数内容を返却 False 失敗 [引 数] iiLogSaveDay(Integer) ログ保存期間日数 ログ出力[Public Function putLog] [戻り値] Boolean True 成功 False 失敗 [引 数] strLogMsg(String) ログ内容 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ブック制御クラス[cBookControl] Ver 1.0 Z_cBookControl_1.0.txt cBookControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし Excelユーザ名取得[Public Function getExcelUserName] [戻り値] String Excelユーザ名 [引 数] なし Excel組織名取得[Public Function getExcelOrganizationName] [戻り値] String Excel組織名 [引 数] なし Excelメモリ情報取得[Public Function getExcelMemory] [戻り値] String [引 数] iiType(Integer) ステータスバー制御開始[Public Function StatusBarStart] [戻り値] Boolean [引 数] なし ステータスバー表示[Public Function StatusBarPut] [戻り値] Boolean [引 数] lsMsg 表示メッセージ ステータスバー制御終了[Public Function StatusBarEnd] [戻り値] Boolean [引 数] なし カーソル処理中[Public Function CursorWait] [戻り値] Boolean [引 数] なし 画面更新中止[Public Function DisplayUpdateStop] [戻り値] Boolean [引 数] なし 画面更新開始[Public Function DisplayUpdateStart] [戻り値] Boolean [引 数] なし カーソル通常[Public Function CursorNormal] [戻り値] Boolean [引 数] なし ファイル選択ダイアログ[Public Function getFileNameByDialog] [戻り値] Variant パス付ファイル名 分離した文字は、String()で返却 分離する文字がない場合、Empty値 [引 数] isDialogTitle(String) ダイアログのタイトル isFileFilterString(String) ダイアログ中の「ファイルの種類」 ibMultiFileSelect(Boolean) 複数選択の可否 指定ブックオープン済チェック[Public Function isCheckOpenSelectBook] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] isChkBookName(String) ブック名("abc.xls") Excelタイトル変更[Public Function setExcelTitle] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] isExcelTitle(String) タイトル内容 Excelタイトル変更停止[Public Function unsetExcelTitle] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし シート制御クラス[cSheetControl] Ver 1.0 Z_cSheetControl_1.0.txt cSheetControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetName(String) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし シート可視不可視[Public Function VisibleSheet] [戻り値] Boolean True 成功 False 失敗 [引 数] ibVisible(Boolean) True 可視 False 不可視 シート存在チェック[Public Function isCheckFoundSheet] [戻り値] Boolean True 存在していた False 存在していない [引 数] なし シート追加[Function inserSheetName] [戻り値] Boolean True 成功 False 失敗 [引 数] なし シート名変更[Function updateSheetName] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetNameAft(String) 変更後シート名 シート削除 Function deleteSheetName() [戻り値] Boolean True 成功 False 失敗 [引 数] なし 文字列操作 文字列分離[SpilitString] Ver 1.0 M_SpilitString_1.0.txt [戻り値] Variant 分離した文字は、String()で返却 分離する文字がない場合、Empty値 [引 数] isSorceString(String) 分離したい文字列 isLimitString(String) 分離したい文字列内のデリミタ文字 指定文字列内パターンマッチング[isPatternMatching] Ver 1.0 M_isPatternMatching_1.0.txt [戻り値] Boolean True 一致 False 不一致 [引 数] isTargetString(String) 比較文字列 lsChkStringArray(String()) チェック対象の文字列群 先頭に*を指定することで後方一致チェックする("*.log") 末尾に*を指定することで前方一致チェックする("/home/*") メッセージクラス(シート定義)[cMsgBySheet] Ver 1.0 Z_cMsgBySheet_1.0.txt cMsgBySheet_1.0.txt 初期化Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetName 取得するシート名 isMsgId(String) メッセージID fsCoverupMsg(String) 埋込文字(CSV形式) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし メッセージ内容取得[Public Function getMessage] [戻り値] String メッセージ内容を返却 [引 数] なし メッセージボックス表示[Public Function MessageBox] [戻り値] Boolean [引 数] なし YesNoボックス表示[Public Function YesNoBox] [戻り値] Boolean [引 数] なし メッセージグループ取得[Public Function getMsgGroup] [戻り値] String メッセージ内容を返却 [引 数] なし エラーレベル判定[Public Function isLevelError] [戻り値] Boolean [引 数] なし 警告レベル判定[Public Function isLevelWarning] [戻り値] Boolean [引 数] なし 通常レベル判定[Public Function isLevelNormal] [戻り値] Boolean [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルクラス[cFile] Ver 1.0 Z_cFile_1.0.txt cFile_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isFileNameIncPath(String) ファイル名(パス付) パスがついていない場合、ブックと同パスとなる 相対パスがついているも、ブックが起点となる ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし 絶対パス変換[Private Function updateRootPathForWin] [戻り値] String 絶対パス [引 数] isPathName(String) パスなし、相対パス パス付ファイル名分離[Private Function SplitFileIncPath] [戻り値] String パス、またはファイル [引 数] isFileNameIncPath(String) パス付のファイル名 isLimitString(String) パスの区切り文字("\","/") iiType(Integer) 1 パス名の返却要求 2 ファイル名の返却要求 パス取得[Public Function getPathName] [戻り値] String [引 数] なし ファイル名取得[Public Function getFileName] [戻り値] String [引 数] なし ファイル存在チェック[Public Function isExist] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイル削除[Public Function deleteFile] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(読込用)[Public Function openFileForRead] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(上書用)[Public Function openFileForOutput] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(追記用)[Public Function openFileForAppend] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイル書き込み[Public Function writeFileLine] [戻り値] Boolean True 成功 False 失敗 [引 数] sBuf(String) 書き込み文字列 ファイルクローズ[Public Function closeFile] [戻り値] Boolean True 成功 False 失敗 [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし マシン制御クラス[cMachineControl] Ver 1.0 Z_cMachineControl_1.0.txt cMachineControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし コンピュータ名取得[Function getComputerName] [戻り値] String OS名 [引 数] なし 環境変数取得[Function getEnv] [戻り値] String OS名 [引 数] isEnvName(String) 環境変数名 ログインユーザ名取得[Function getLoginUserName] [戻り値] String ログインユーザ名 [引 数] なし OS名取得[Function getOsName] [戻り値] String OS名 [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし EXCELブッククラス Ver 1.0 Z_cSheetControl_1.0.txt cSheetControl_1.0.txt 初期化 Public Function Initialize() 処理概要 クラスの開始、および、初期化を行う。 戻り値 cResult getResult なし 引数 isBookPathName(String) ブックパス名 isBookFileName(String) ブックファイル名 ステータス取得 Public Function getStatus() 処理概要 クラスのフィールド値を返却する 戻り値 String CSV形式でプライベート変数内容を返却 引数 なし ブック読取専用パスワード設定 Public Sub setBookReadPasswd() 処理概要 読取専用パスワード設定 戻り値 なし 引数 isBookReadPasswd(String) 読取専用パスワード文字列 ブック書込専用パスワード設定 Public Sub setBookWritePasswd() 処理概要 書込専用パスワード設 戻り値 なし 引数 isBookReadPasswd(String) 読取専用パスワード文字列 指定ブックオープン済チェック Public Function isCheckOpenSelectBook() 処理概要 指定したブックのオープン状態を返却する 戻り値 cResult getResult [Boolean] True オープン済 False 未オープン 引数 isChkBookName(String) ブック名("abc.xls") ブックオープン Public Function openBook() 処理概要 ブックをオープンする 戻り値 cResult getResult なし 引数 ibBookUpdateLinks(Boolean) ブックパス名 ibBookReadOnly(Boolean) ブックファイル名 シート取得 Public Function getSheetObject() 処理概要 指定したシート名のシートオブジェクトを返却 戻り値 cResult getResult [Worksheet] 引数 isSheetName(String) シート名 全シート名取得 Public Function getSheetNames() 処理概要 オープンしているブックのzんシート名を返却 戻り値 cResult getResult [String] CSV形式で全シート名を返却 引数 なし ブッククローズ Public Function closeBook() 処理概要 オープン中のブックをクローズする 戻り値 cResult getResult なし 引数 なし 終了 Public Function Terminate() 処理概要 クラスの終了 戻り値 cResult getResult なし 引数 なし 命名規則 変数名 ABCDEF・・・・ (ex.lbRet,liLoopCounter,fsSheetName,ioClassArray) A 定義場所 "g" モジュール内Public,Global変数(Global) "f" クラス内フィールド(Field) "i" モジュール、クラスの引数(Input) "l" モジュール、クラス内で定義したローカル変数(Local) "c" 定数(Const) B 変数の型 "s" String "i" Integer "l" Long "d" Double "b" Boolean "t" Date "v" Variant "o" Object CDEF・・・任意の特定変数名 英単語、英文。原則和製英語不可。単語の区切りごとに大文字。 IsError、LoopCounter1 変数がテーブルの場合、最後に、Arrayを付加 IsErrorArray、LoopCounterArray
https://w.atwiki.jp/javadsge/pages/304.html
package excel; import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.ss.usermodel.Workbook; import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.ss.usermodel.Cell; import java.io.*; public class pro { public static void main(String[] args) { pro y=new pro(); } pro(){ Workbook wb = new HSSFWorkbook(); Sheet sheet1 = wb.createSheet(); Sheet sheet2 = wb.createSheet(); Sheet sheet3 = wb.createSheet("new sheet"); Sheet sheet4 = wb.createSheet("表計算用"); Row row1 = sheet1.createRow(0); Cell cx= row1.createCell(0); cx.setCellValue("Hello"); FileOutputStream out =null; try{ out = new FileOutputStream("sample.xls"); wb.write(out); }catch(IOException e){System.out.println(e.toString());} } }
https://w.atwiki.jp/nobotaka/pages/17.html
Option Compare Text Option Explicit Sub aaaa() Dim ws As Worksheet MsgBox ("aaa") For Each ws In Worksheets ws.Activate ActiveWindow.Zoom = 100 Next End Sub Sub aaaa01() Dim ws As Worksheet Dim OpenFileName As String ChDrive "E" ChDir "E \Documents\dev\trunk\vba" OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName = "False" Then MsgBox "キャンセルされました" End If End Sub
https://w.atwiki.jp/excelvba/
ExcelVBA質問スレの過去ログ質問まとめ@wiki このwikiは回答者のために製作しました。 備忘録の他、過去の質疑を整理し、回答時の参考にするためにまとめたものです。 よって質問者に「wiki嫁」っていう使い方は想定してません。 しょうがねえ手伝ってやるかって言う凄腕のハカー・プログラマ・SEの方がいらっしゃったらぜひお願いします。 スレまとめだけじゃなくtipsとか、忘れがちだけど注意しなくちゃ逝けない点とかまとまってると、後で(俺が)見たときに楽。 ページ Excel VBA 質問スレ Part18 カウンター 今日 - 昨日 - 合計 - 名前 コメント
https://w.atwiki.jp/suffix/pages/989.html
http //www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_090_040.html http //officetanaka.net/excel/vba/tips/tips23.htm が参考になる。 上記のサイトに書いてあるようなテクニックを利用して、 ユーザーフォームを UserForm1.Show vbModeless UserForm1.label1.Caption = "表示させたい文字" UserForm1.repaint とすると、UserForm1に貼り付けたlabel1のテキスト文字を変えることができる。 これをプロセスの進行状況に応用し、例えば変数iが何個目の処理を実行しているかを表す変数だとして UserForm1.label1.Caption = i "/200 実行中" 表示したユーザフォーム内の文字を 1/200 実行中…といったように書き換えることが可能。