ウニペグ＠カスミさんのみ転記OK

主にVBA、Excel関する事を呟きます。 改行の繰り返しで & vbcrlf & vbcrlf & 以外の方法をリンク先ブログで紹介しています。

[ウニペグ＠カスミさんのみ転記OK @unipegu]

定時になるとExcelのグラフを破壊に来るロックマンを阻止する為に上司が仕込んだキャラクターが背後から襲ってきた。

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBEで変数にカーソルがある状態で
Ctrl + i を押すとその変数の型が表示される。

#VBA

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAの呼び出し履歴は、VBAコード内で他のプロシージャや関数を呼び出したときの記録です。これにより、実行されたコードのフローと、どのコードが他のコードから呼び出されたのかを追跡することができます。　

Stop

で止めてCtrl + L で表示される
クリックすると呼び出し先に移動できる。
#VBA

[ウニペグ＠カスミさんのみ転記OK @unipegu]

PowerShellを使って、特定のフォルダ内の特定の拡張子を持つファイルの数を数えるには、以下のようなコマンドを使用します。

(Get-ChildItem -Path "C:\path\to\folder" -Filter "*.extension" -File).Count

-Fileは省略もできます。
パスを省略するには対照フォルダから実行

#特定拡張子カウント

[ウニペグ＠カスミさんのみ転記OK @unipegu]

フォルダ内のファイルの拡張子を一括で変換するにはフォルダのアドレスバーに

cmd

エンターキーでコマンドプロンプトを起動し例えば拡張子が「.txt」のファイルを「.md」に変換する場合は以下のように入力します。

ren *.txt *.md

指定したフォルダ拡張子が一括で変換される。

#拡張子一括変換

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Excel vbaのif文でNOTを複数指定したい時は

If Not (Condition1 Or Condition2) Then
MsgBox "条件が成立しません"
End If

や

If Not (Condition1 And Condition2 And Condition3) Then
MsgBox "条件が成立しません"
End If

上記のように()内にいれて指定する。

#VBA

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Excel VBAで、複数の条件に基づいてフィルタリングを行う場合、"AutoFilter"メソッドを使います。例えば、列Aに値が"Apple"で、列Bに値が"Red"の行をフィルタリングするには、"Range("A1:B100").AutoFilter Field:=1, Criteria1:="Apple", Field:=2, Criteria1:="Red""を使います。

#VBA

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAのWorksheet_Change
複数セル同時でもエラー回避

Private Sub Worksheet_Change(ByVal Target As Range)

Dim U As Range

Application.EnableEvents = False

For Each U In Target
If U.Value = "1" Then
U= Now
End If
Next
Application.EnableEvents = True

End Sub

＃vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Excel vbaで選択している行の一番上と一番下を検出

Dim firstRow As Long
Dim lastRow As Long

' 選択範囲の一番上の行を取得
firstRow = Selection.Cells(1).Row

' 選択範囲の一番下の行を取得
lastRow = Selection.Cells(Selection.Cells.Count).Row

＃vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

「Excel」上で「ChatGPT」を簡単に扱えるようにする方法が開発される！（Impress Watch）
#Yahooニュース https://t.co/UHxZ1TtNiN

[ウニペグ＠カスミさんのみ転記OK @unipegu]

vbaで文字列等を結合したい時+演算子は数値を加算する働きもあるので予期しない結果になる事があります。文字列等の結合には&演算子の使用を推奨します。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAの「CallByName」は、オブジェクトの中の、特定の名前を持つメソッドやプロパティを呼び出す機能です。普通は、オブジェクト名とプロパティ名を直接指定して呼び出す必要がありますが、「CallByName」を使うと、プログラムの実行中にプロパティ名を文字列で指定することができます。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

また、マウスやキーボードの操作をシミュレートすることもできるため、Webサイトの自動化やフォームの入力など、多彩な用途に活用できます。

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Excel VBAでは、Windows APIを使用して、Excelのウィンドウの位置やサイズを取得したり、変更したりすることができます。例えば、別のアプリケーションとExcelを並べて表示する場合に、Excelウィンドウの位置やサイズを自動的に調整することができます。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAで配列を定数として宣言する場合、配列のサイズを事前に指定できますが、宣言時にサイズを指定しない場合は、ReDimステートメントで後からサイズを変更することができます。ReDimステートメントで配列のサイズを増やす場合、配列の内容は初期化されます。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAには、「GoSub...Return」ステートメントがあります。これは、プログラムの実行中に特定のサブルーチンにジャンプし、そのサブルーチンの実行が終了したら、元の場所に戻るために使用されます

GoSub MySub
' 処理2
Exit Sub

MySub:
' 処理1
Return

Gotoだとエラーになります

[ウニペグ＠カスミさんのみ転記OK @unipegu]

VBAで改行を繰り返す時に　& vbcrlf & vbcrlf &　以外の方法を紹介。 | Excel VBA シンプル解説

短く読みやすさと解りやすさを意識しています。数分で読み終わります。 https://t.co/qosy5nbJBi

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Dim Name(5) As String

上記の様に配列を宣言すると
Name(0)〜Name(5)となります

Name(1)〜Name(5)と1からにしたい場合はモジュールの宣言セクションに

Option Base 1

と宣言するか

Dim Name(1 To 5) As String

と宣言する。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

Excelでファイルを開くと

［このブックには更新できないリンクが1つ以上含まれています]

上記の様な表示でてリンク元の更新や削除等で解決できずシート上にリンクが確認できない場合は、条件付き書式の数式にリンクが含まれてるいる場合があります。
#Excel

[ウニペグ＠カスミさんのみ転記OK @unipegu]

イミディエイトにセルの値を出力させる場合

?[a1]

で値が出力されるが数式がある場合は計算結果が出力される、数式自体を出力したい時は

?[a1].formula

で数式が出力される。

#vba

[ウニペグ＠カスミさんのみ転記OK @unipegu]

通常のメッセージボックスに『？』
アイコンを表示する場合は

MsgBox "uni" ,vbQuestion

とカンマ区切りだが、vbYesNoと
組みあわせる時は

If MsgBox ("uni",vbYesNo + vbQuestion) = vbYes Then

上記のように『＋』にする。

End If