差分

このページの2つのバージョン間の差分を表示します。

--- programming:vba:uncategorized [2021/04/14] – atama
+++ programming:vba:uncategorized [2021/04/15] (現在) – atama
@@ 行 1: / 行 1: @@
 ====== 未分類 ======
-<wrap hi>※要調査：なぜかアポストロフィーとダブルクォーテーションを使うと403Errorになってしまう。</wrap>
 CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。
 <code vb>
-X = Cells(Rows.Count, CLM).End(xlUp).Row
+Cells(Rows.Count, CLM).End(xlUp).Row
 </code>
 ROW行のデータ数を数える。ROW行を右から左に向かって検索して、データが存在する最初のセルの列数を返す。
 <code vb>
-X = Cells(ROW, Columns.Count).End(xlToLeft).Column
+Cells(ROW, Columns.Count).End(xlToLeft).Column
 </code>
-指定したファイルが使用中かどうか判定<wrap lo>（[[http://www.officetanaka.net/excel/vba/tips/tips108.htm|「ブックが開かれているかどうか調べる」Office TANAKA]]）</wrap><wrap hi>コメントアウト</wrap>
+指定したファイルが使用中かどうか判定<wrap lo>（[[http://www.officetanaka.net/excel/vba/tips/tips108.htm|「ブックが開かれているかどうか調べる」Office TANAKA]]）</wrap>
 <code vb>
 On Error Resume Next
@@ 行 22: / 行 20: @@
 '    誰かが使用中
 Else
-    誰も使用していない
+'    誰も使用していない
 End If
 </code>
-画面の描画を止めて処理を高速化。処理後にTrueに戻すのを忘れないこと。
+テキストボックス等の指定を変数で行う。
 <code vb>
-Application.ScreenUpdating = False
+Me.Controls("TextBox" & i).Value
 </code>
-テキストボックス等の指定を変数で行う。<wrap hi>TextBoxをダブルクォーテーションで囲む。</wrap>
+  * イベント(BeforeUpdate, AfterUpdate, DblClick, Workbook_Open
-<code vb>
-Me.Controls(TextBox & i).Value
-</code>
-  * イベント(BeforeUpdate, AfterUpdate, DblClick)
   * On Error Resume Next
   * On Error GoTo 0
-  * Open / ReadOnly, IgnoreReadOnlyRecommended
+  * Open / ReadOnly, IgnoreReadOnlyRecommended, Filename, UpdateLinks
   * Close / SaveChanges
   * UBound
   * Select Case / Case Is / Case Like
+  * 図
+  * cells.UseStandardHeight = True
+  * cells.UseStandardWidth = True
+  * cells.clear
+  * SHEET.Hyperlinks.Add Anchor:=SHEET.Cells(X, Y), Address:=FILENAME
+  * InStr, CDate, Narrow
+  * StrConv(UCase(Cells(X, Y)), vbNarrow)
+  * Range(CELL).Font.Bold = True
+  * Range(CELL).Font.Color = RGB(0, 0, 0)
+  * Range(CELL).Interior.Color = RGB(240, 240, 0)
+  * Range(CELL).Borders.LineStyle = xlContinuous
+  * Application.FileDialog(fileDialogType)
+ファイルを検索する。<wrap lo>[[http://officetanaka.net/excel/vba/file/file07.htm|「ファイルの一覧を取得する」Office TANAKA]]</wrap>
+<code vb>
+TMP = Dir(PATH & "*.xlsx")
+Do While TMP <> ""
+    TMP = Dir()
+Loop
+</code>
+テキストファイルに書き込む。下記コードは同名ファイル(前回作ったファイルと想定)を削除してから処理を行なっている。<wrap lo>[[http://officetanaka.net/excel/vba/file/file08.htm|「テキストファイルを操作する(開く)」Office TANAKA]]</wrap>
+<code vb>
+Kill FILENAME
+Open FILENAME For Append As #1
+    Print #1, TXT
+Close #1
+</code>
+テキストファイルを読み込む。<wrap lo>[[http://officetanaka.net/excel/vba/file/file08.htm|「テキストファイルを操作する(開く)」Office TANAKA]]</wrap>
+<code vb>
+Open TXTFILE For Input As #1
+Line Input #1, TXT
+Close #1
+</code>
+===== 処理の高速化 =====
+画面の描画を止める。処理後にTrueに戻すのを忘れないこと。
+<code vb>
+Application.ScreenUpdating = False
+</code>
+自動再計算を止める。処理後にxlCalculationAutomaticに戻すのを忘れないこと。
+<code vb>
+Application.Calculation = xlCalculationManual
+</code>