programming:vba:uncategorized

差分

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

この比較画面へのリンク

両方とも前のリビジョン 前のリビジョン
次のリビジョン		 前のリビジョン
programming:vba:uncategorized [2021/04/14] – atamaprogramming:vba:uncategorized [2021/04/15] (現在) – atama
行 1: 行 1:
 ====== 未分類 ====== ====== 未分類 ======
- 
-<wrap hi>※要調査：なぜかアポストロフィーとダブルクォーテーションを使うと403Errorになってしまう。</wrap> 
  
 CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。 CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。
行 13: 行 11:
 </code> </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> <code vb>
 On Error Resume Next On Error Resume Next
行 22: 行 20:
 '    誰かが使用中 '    誰かが使用中
 Else Else
-    誰も使用していない+'    誰も使用していない
 End If End If
 </code> </code>
  
-テキストボックス等の指定を変数で行う。<wrap hi>『』→ダブルクォーテーション</wrap>+テキストボックス等の指定を変数で行う。
 <code vb> <code vb>
-Me.Controls(『TextBox』 & i).Value+Me.Controls("TextBox" & i).Value
 </code> </code>
  
-  * イベント(BeforeUpdate, AfterUpdate, DblClick, Workbook_Open)+  * イベント(BeforeUpdate, AfterUpdate, DblClick, Workbook_Open
   * On Error Resume Next    * On Error Resume Next 
   * On Error GoTo 0   * On Error GoTo 0
-  * Open / ReadOnly, IgnoreReadOnlyRecommended+  * Open / ReadOnly, IgnoreReadOnlyRecommended, Filename, UpdateLinks
   * Close / SaveChanges   * Close / SaveChanges
   * UBound   * UBound
   * Select Case / Case Is / Case Like   * 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><wrap hi>『』→ダブルクォーテーション</wrap>+ファイルを検索する。<wrap lo>[[http://officetanaka.net/excel/vba/file/file07.htm|「ファイルの一覧を取得する」Office TANAKA]]</wrap>
 <code vb> <code vb>
-TMP = Dir(PATH & 『*.xlsx』) +TMP = Dir(PATH & "*.xlsx") 
-Do While TMP <> 『』+Do While TMP <> ""
     TMP = Dir()     TMP = Dir()
 Loop Loop
  • programming/vba/uncategorized.1618382115.txt.gz
  • 最終更新: 2021/04/14
  • by atama