Sub DeleteBlankRows() Dim x As Long With ActiveSheet For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If WorksheetFunction.CountA(.Rows(x)) = 0 Then ActiveSheet.Rows(x).Delete End If Next End With End SubHighlight Duplicate Values in SelectionUse this simple macro to high...
For ExitForは、For～Nextのループを抜けます。 通常For～Nextは指定回数繰り返す為に使うので、Exit Forを使う事は少ないのですが、 特定条件になった場合は、指定回数の処理を完了する前にループを抜けたい場合に使用します。 Sub 3() Dim For = 1 To 10 If Cellsi, 1) <>...
#はじめにVBAでJSONをパースする際にはCreateObject("ScriptControl")を使用するのが一般的でしょう。(サンプル例)しかし、この手段は32bit限定であり、64bi…
Forループを使ったロジックで、条件によってはループを途中で抜け出したいときがある。 例えば、カウンタが5になったら抜けたい場合は、If文で条件を判定して条件が合えば、Exit Forで脱出する。 VBA Private Sub Hoge() For i = 0 To 9 Debug.Print "ループ内 i=" & i If i = 5 Then...
" tgtRngsCount = Target.Cells.Count ReDim lastTgtRngData(2, tgtRngsCount) i = 1 For Each R In Target With R .FormatConditions.Add Type:=xlExpression, Formula1:="=OR(LEN(" & R.Address(0, 0) & _ ")>0, LEN(" & R.Address(0, 0) & "=0))" .FormatConditions(.FormatConditions...
EXCELでマクロを実行すると、「Print driver host for applications」なるプロセスのCPU使用率が高くなり、マクロ実行速度が遅くなる。 Excelにて図のリンク貼り付けされているブックが開かれているとマクロが遅くなる EXCELにマクロ(VBA) ORA-01019エラーで接続できなくなった ExcelのVBAを...
FunctionScoreBoard()'黒石白石数えるよう関数DimiAsLong:i=0DimjAsLong:j=0'黒石白石カウント変数初期化blackCount=0whiteCount=0Fori=0To7'stone_arr配列の中の黒石と白石の数を数えるForj=0To7Ifstone_arr(i,j)=BLACK_STONEThenblackCount=blackCount+1ElseIfstone_arr(i,j)=WHITE_STONEThenwhiteCou...
VBAエディタから実行したいのであれば、vbext_ws_Minimizeを使うためにVBAエディタのツール->参照設定でMicrosoft Visual Basic for Application Extensibityを追加します。 個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」...