Excel VBA 質問スレ Part76

2022/05/01(日) 02:23:41.78

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2022/05/22(日) 10:01:24.95

>>172
あらキレイ

2022/05/22(日) 10:11:15.36

>>173
綺麗に見えるだろ？
このコード、死んでるんだぜ…ﾍﾍｯ

2022/05/22(日) 10:37:59.11

>>163
VBAスレでいうのもアレだと思うけど

「改行、スペースで区切られたテキストデータを、10個ずつ(10列ずつ)で改行されるデータとして抽出したい」
って考えると正規表現可能なテキストエディタでやったほうが良いような気がする。

(　| |\r\n) を \t
\t+ を　\t
((.*?\t){2}) を $1\r\n

にみたいな感じで

2022/05/22(日) 13:05:55.15

>>163
同じくVBAスレでいうのもアレだし>>172でよいと思うけど

powershell -c "(gcb -raw) -replace '\s+', """"`t"""" -replace '((?:[^\t]+\t){9}[^\t]+)(?:\t|$)', """"`$1`r`n""""|scb"

VBAから実行するなりバッチファイル（.bat）にして実行するなりすると
整形結果がクリップボードに入るのでA1を選択して貼り付け。

すでにExcel上にあるデータなら>>172とかが有力だけど、
入力元がクリップボードならクリップボード格納前後（VBA前）で
テキスト処理に向いた言語や手法（>>175）で整形したらいいんじゃないの、と思う。
餅は餅屋、ってことで。
今回だとクリップボード操作と正規表現向き内容なのでPowerShellが向いてそう。

・実行環境のOS（Windows 7で実行されうるか）
・文字列にダブルクォーテーションが含まれうるか
・「空白」の正確な定義（レアな空白を「空白」に含んでよいか）
・『A1に「かかか」』の謎
・この整形処理前後の処理（処理全体、本当の処理目的）
などにもよるけど。

2022/05/22(日) 19:14:42.01

常にそうだとは言わないけど、VBAでいろんなことしようとする人って
会社内でセキュリティに縛られてVBAしか使えないような環境でこっそりやってる場合が多いんじゃね

うちなんてpowershellさえ使えない

2022/05/22(日) 21:09:09.39

>>177
VBAとVBScript/Jscriptはそれの定番だよ。
IEがなくなるとスクレイピングができなくなるよな。
そういう環境下だと、どうするんだろう。

**デフォルトの名無しさん** (ｽﾌｯ Sdba-SeQ4) · 2022/05/22(日) 21:19:32.54

163です。
レスくださった方ありがとうございました。

結論から言うと、>>172を加工してなんとなくうまくできました。
A1セルは「あああ」が正しいです。すみません。

2022/05/22(日) 21:33:47.57

それぐらい分かってるから大丈夫だ

2022/05/23(月) 17:38:33.02

表示するのにラグを発生させたい場合sleepかウェイトを試して見たのですがソースの途中に入れても実行最初に止まって全部表示されてしまうのですがなにかいい方法はないのでしょうか

2022/05/23(月) 17:51:32.07

何の表示だよ

2022/05/23(月) 17:58:05.38

セルに挿入です
for文を挟んでいるとどうもすべて止まって一括表示されてしまいます

2022/05/23(月) 18:38:04.00

ループ内で都度再表示させればいいんじゃねーの

2022/05/23(月) 18:45:16.94

excelのシートのA列に◎オプションボタンActiveXを付けた、B列には商品名（3000件くらいある）を入れた。
◎ りんご
◎ みかん
◎ ぶどう
◎ ばなな

ぶどうを選んだら、TRUEになった番号は「3番」って返ってきているのですが、3000件を設定するのが大変で一括で設定できる方法があれば何かヒントを教えてください。

2022/05/23(月) 20:02:47.45

>>181
なんのためのラグかを書けばもう少しマシなやり方を教えてくれるかも

2022/05/23(月) 20:48:26.86

>>183
DoEvents

2022/05/23(月) 20:58:57.01

Sub foo()
Range("a1:z100").Formula = "=rand()"
End Sub
こういうのを徐々に表示したいってなら、無理だ

2022/05/23(月) 21:43:20.23

Do Eventsってイマイチちゃんと意味を理解しない状態で使ってる気がする

なんか図形でアニメみたいな動きさせるとか
入れると安定したり

2022/05/23(月) 23:30:03.20

>>189
WindowsというOSの(ほぼ)すべてがイベントで動いてる
キー入力も画面表示もディスクアクセスも、何をするにもイベントが必ず使われる

普通に使ってるだけで、ユーザーの関知してないところで毎秒数十万回以上のイベントが発生してて、その一部は溜めたり無視することもできる
そこで溜まったイベントをまとめて処理するのがDoEvents

2022/05/23(月) 23:44:03.30

肥溜めの水で流すボタンだな

2022/05/23(月) 23:54:22.46

>>190
中途半端な知識の人の回答だな
所詮はExcel使いか

2022/05/24(火) 00:04:30.71

そうか？

2022/05/24(火) 01:52:28.78

ググって読んでもさっぱりわからんがプロシージャの共通化(´・ω・`)これかも。

2022/05/24(火) 02:50:59.45

>>190
ExcelのVBAがWindowsの全てのイベントを処理しているとでも思ってんの？
いつの時代のWindowsだよ

2022/05/24(火) 06:09:04.44

>>195
話せ。

2022/05/24(火) 06:13:25.21

タスク

2022/05/24(火) 13:00:25.03

60歳70歳の古参プログラマーじゃないんだからさ

2022/05/24(火) 21:38:10.53

Loop中など他からの割り込みの余地入れる＝DoEventsかと思ってました
厳密な意味は知らずに使ってました

2022/05/24(火) 22:07:09.92

昔はWindowsのイベントループそのものだったけど、今は>>199くらいの認識の方が正しいよ
今のExcelは裏でスレッド使いまくってるから複雑

2022/05/24(火) 22:24:18.97

少しまだ難しいですが、とりあえずはwindowsの処理で無視していた分を一旦返してあげるみたいな処理なのだと認識しました。

2022/05/24(火) 22:30:40.02

昔はシングルコアで激重だったから適度に返さないとすぐに応答なしになった
今はマルチタスクで割と重い処理も平気

2022/05/25(水) 05:02:47.05

個人用マクロブックのプロシージャからシートに挿入されているマクロのボタンを押す方法を教えて下さい

2022/05/25(水) 06:07:16.42

privateを削除するんじゃなくて?
物理的にクリック?

2022/05/25(水) 06:43:21.13

物理的にではなくシート側のボタンのクリックイベントのプロシージャを個人用マクロブックのプロシージャから動かしたいです。

2022/05/25(水) 06:45:16.14

application.runは駄目でした

2022/05/25(水) 06:47:11.61

イベントとか言うから初心者が勘違いする

2022/05/25(水) 07:53:58.12

プロシージャの中身を外出ししようとか考えたのか？

2022/05/25(水) 08:31:27.12

>>203
Call

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/25(水) 09:47:51.39

いやここはレイズだ

2022/05/25(水) 18:45:23.11

>>206
呼び出し先のブック名は入れてるのかもしれないけどモジュールが複数あってモジュール名は入れてない、とか？

2022/05/25(水) 19:54:25.66

説明が少なくて申し訳ありません。
マクロボタンのついた会社の帳票のマクロボタンを押して処理をした上に自分の個人用マクロブックの処理がしたいです。私は会社の帳票のマクロを変更する技術も権限もないのでこのような形を取っています

2022/05/25(水) 20:09:39.86

やっちゃいけないことじゃねーの

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/25(水) 20:44:02.25

会社のマクロにパスワードが掛かってる、かつ起点となるマクロはその会社の方のマクロって事かな？

1. 会社のExcelと個人で用意したxlsm（個人用ブックである必要無し)を準備する
2. vbs やps1の外部ファイルから会社のVBA実行→個人で用意したxlsm内のVBA実行

これで行けるんでねえの？

2022/05/25(水) 20:52:50.14

変更する技術がないなら触らない方が良いと思うよ

2022/05/25(水) 21:08:25.40

そもそも権限のないものを突破しようってのは倫理的にどうなのって気がするが
まずは上司なりなんなりに相談するところからじゃね

2022/05/25(水) 21:14:00.59

ややこことは辞めたほうがいいね

2022/05/25(水) 22:29:41.62

パスワードかかってるマクロなんて適当な野良アプリでわかるけどな

2022/05/26(木) 00:34:12.72

会社用のマクロ実行したあと、個人用マクロを実行するだけの作業なのに
あくまでも自分の分からない領域まで手を入れたいってのは分からんな
マクロ壊して分かりづらい変なトラブルになったら責任云々とかになりかねないかもしれんぞ

214のやり方がむりなら諦めるか上長に相談するべきやと思うで

2022/05/26(木) 06:53:49.33

>>219
100個ぐらいあるエクセルファイルを開いて、そのエクセルファイルのマクロボタンを押して一回目の処理をして次に個人用マクロブックに作った処理をしてエクセルファイルを上書き保存して閉じるを繰り返さなくてはいけないのでマクロ化したいのです。エクセルファイル側のプロシージャを個人用マクロブック側に持たせるのが一番簡単かなと

2022/05/26(木) 06:58:26.73

その会社の帳票マクロとやらのファイルを開いてボタン押せるんならSendKeys使えば何とかなるんじゃねーの？(鼻ホジ)

2022/05/26(木) 07:56:10.65

>>220
工夫するのは上長に100個もある無駄なExcelファイルについて改善を提案すべきじゃね
下手なやつの自動化は害にしかならない
それでだめなら自分の責任でこういうやり方していいかとか聞くとかそういう流れにはもうしたんやろ？

外部から呼ぶ214のやり方で無理なら諦めろ
改善して見込める君の給与メリットがそれほどの額じゃないんやろ

これ公務員とかならマジで税金の無駄やなw

2022/05/26(木) 08:40:43.23

公務員なんて文系の仕事だから、効率のいいデータ整理やプログラミングができるやつなんてほぼいない
しかし理系の人材に役所仕事させるのは税金の浪費以上にもったいない

2022/05/26(木) 14:50:09.50

>>206
wshでしょっちゅうやってるけど

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso.getParentFolderName(WScript.ScriptFullName)
Set ExApp = Wscript.CreateObject("Excel.Application")
ExApp.Visible = True 'エクセル可視/不可視設定
ExApp.DisplayAlerts = False '警告メッセージをオフ
Set Wb = ExApp.Workbooks.Open(fso.BuildPath(CurrentDirectory,"Book1.xlsm"))
ExApp.Application.Run "Macro1"

2022/05/26(木) 15:48:41.66

上司に黙ってデータ改竄とかしたら
会社の資産を横領できちまうな

2022/05/26(木) 18:34:16.06

農協で30年勤めたOLがやりそうなイメージ。

2022/05/26(木) 18:36:23.42

郵便局の場合、昭和のころから歴代の局長が引き継いでそう。
漁協の場合、いくつもの窃盗グループがありそう。
悪いこととは知らなかったって言いそう。

**デフォルトの名無しさん** (HK 0Hca-ib4B) · 2022/05/26(木) 22:05:05.56

今日いちにち会社で配列に関する記事を読んでましたがここ10年くらいVBAに触れてなかったせいもあり
よく理解できないためお力をお借りしたいです。

20万行くらいある空白の無いデータを処理したいのですが、私の書いたコードではどうしても速く処理できません。
F列が「Distribution (PCW; Sales value」とあったらその右のG列の数字を見に行き、3以下ならその行含め下に2行、合計3行削除したいです。

Sub TEST1()
Application.ScreenUpdating = False

Dim A
'セルの値を配列に格納
A = ActiveSheet.Range("A1").CurrentRegion

'配列をループ
For i = UBound(A, 1) To 2 Step -1

'「If」で検索
If A(i, 6) = "Distribution (PCW; Sales value)" Then
If A(i, 7) <= 3 Then
Cells(i, 1).Resize(3, 1).EntireRow.Delete Shift:=xlUp
End If
End If
Next

End Sub

**デフォルトの名無しさん** (HK 0Hca-ib4B) · 2022/05/26(木) 22:19:00.22

一応こんな感じのデータです

A列　　　　　B列　　　　C列　　　　　D列　　　　　　　E列　　　　　　　　　F列　　　　　　　　　　　　　　　　　　G列　　　　　　　
CTM_ 　　　12Area TM_2022 sku 　　　SKU Code Measure 　　　　　　　　　　　　　　TOTAL 4.18- 4.25- 5.2- 5.9-
業態合算 Hokkaido その他ｷﾖｳﾘﾂｾﾞﾘ-　　4901325124326 Distribution (PCW; Sales value) 8.64 7.03 6.63 9.19 11.70
業態合算 Hokkaido その他ｷﾖｳﾘﾂｾﾞﾘ-　　4901325124326　　Sales Store**** 2,386. 1,830 3,254. 2,244 2,460.5
業態合算 Hokkaido その他ｷﾖｳﾘﾂｾﾞﾘ-　　4901325124326 Sales Store***** 666 7777 888 4444 7777

**デフォルトの名無しさん** (HK 0Hca-ib4B) · 2022/05/26(木) 22:19:48.67

やっぱりずれた。。。(>_<)

2022/05/26(木) 22:28:17.29

>>228
Excelの行を1行1行Deleteするのはどうやっても重くなるから出力用の配列を作るのがいいかな

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/26(木) 22:30:55.09

配列を使ってんなら配列の中で削除処理しないとそりゃあ意味無いでしょ

**デフォルトの名無しさん** (HK 0Hca-ib4B) · 2022/05/26(木) 22:46:06.64

>>231
>>232

ごもっとです、、(;^_^A
今日は疲れたので明日ちょっと調べて試行錯誤してみます。レスいただきありがとうございました。

2022/05/26(木) 23:00:25.66

いつもやる方法があるけどどのくらい早いのかはよくわからん

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/26(木) 23:01:04.69

ユニークなキー列がもしあればディクショナリー使うのが速いよ
まあ難しければ配列でも全然良いけど

**デフォルトの名無しさん** (HK 0Hca-ib4B) · 2022/05/26(木) 23:26:48.34

>>234
少なくとも私のコードよりは速いんじゃないかな。。
15万行を10分以上かかってます(;^_^A

>>235
ディクショナリーとは初めて聞きました。でもユニークなキーがありませんでした。。
SKU Codeという商品コードは基本ユニークなんですが3行ずつ同じ商品コードが並んでるんです。。(;^_^A

2022/05/26(木) 23:42:29.81

>>236
じゃあこんな感じで作ったので10分以上がどのくらい早くなったか遅くなったか教えてください。

Sub TEST1()
Application.ScreenUpdating = False

Dim A
'セルの値を配列に格納
A = ActiveSheet.Range("A1").CurrentRegion

'配列をループ
For i = UBound(A, 1) To 2 Step -1
Debug.Print i

'「If」で検索
If A(i, 6) = "Distribution (PCW; Sales value)" Then
If A(i, 7) <= 3 Then
Cells(i, 6).Resize(3, 1).Interior.Color = RGB(255, 0, 0)

End If
End If
Next
'
ActiveSheet.Range("A1").CurrentRegion.Select
Selection.AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.ScreenUpdating = True
Selection.Delete 'これはしないで目で確認して手動でDELETEしても良いかも

End Sub

2022/05/26(木) 23:50:53.02

>>228
・最初にセルの内容をvariantの2次元配列に格納。

・そのvariantを弄くり倒す。

・ほしい結果になったvariantを最後に書き戻す。

セルはフォントだの背景色だの罫線だの表上のアドレスだのとにかくいろんな情報がてんこ盛りなので、valueみてりゃいい処理ならできるだけ書き換えない。

2022/05/27(金) 00:18:49.05

あと、蛇足なんだけどソースでやってることそのものをコメントで書いてもあまり意味が…。

'配列をループ
For i = UBound(A, 1) To 2 Step -1

とか

'「If」で検索
If A(i, 6) = "Distribution (PCW; Sales value)" Then

は、いらないのではと。

もひとつ、削除系処理は下からループさせたほうが無難な気がしないでもない。

2022/05/27(金) 00:19:25.67

あ。ループは俺の読み間違いだ。ごめんなさない。

2022/05/27(金) 00:22:08.18

>>235
Dictionary使うならユニークなキーがなくても行番号をキーに突っ込めば大体応用効くよね
アイテムはArrayで格納すればいいし

2022/05/27(金) 00:30:45.85

ちなみに行削除は、DeleteTargetRowみたいなRange型の変数を使って、削除対象の行が出たらその変数にUnionしていってまとめて削除、がまだ速いかな

2022/05/27(金) 01:16:57.81

>>237
自分で15万行のデータで試したらDebug.Print i を外しても遅すぎたので作り直し
うちでは5秒でした　（Core2Duo E7500 RAM8G win10 Excel2010) 元データのF列に色がないことが条件ですけどね

Sub TEST1()
Dim startTime As Double: startTime = Timer
Application.ScreenUpdating = False
Dim A
A = ActiveSheet.Range("A1").CurrentRegion
For i = UBound(A, 1) To 2 Step -1
If A(i, 6) = "Distribution (PCW; Sales value)" Then
If A(i, 7) <= 3 Then
Cells(i, 6).Resize(3, 1).Interior.Color = RGB(255, 0, 0)
End If
End If
Next
'
Application.ScreenUpdating = True
Dim mySheet As Worksheet: Set mySheet = ActiveSheet
Dim tempSheet As Worksheet: Set tempSheet = Worksheets.Add
Dim myRange As Range: Set myRange = mySheet.Range("A1").CurrentRegion
myRange.AutoFilter Field:=6, Operator:=xlFilterNoFill
myRange.Offset(1, 0).Resize(myRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy tempSheet.Range("A1")
mySheet.ShowAllData
myRange.Clear
tempSheet.Range("A1").CurrentRegion.Copy mySheet.Range("A1")
Application.DisplayAlerts = False
tempSheet.Delete
Application.DisplayAlerts = True
MsgBox (Timer - startTime & "秒でした")
End Sub

2022/05/27(金) 02:06:50.25

myRange.Offset(1, 0).Resize(myRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy tempSheet.Range("A1")
を下に修正
myRange.SpecialCells(xlCellTypeVisible).Copy tempSheet.Range("A1")

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/27(金) 06:53:03.71

>>241
お何か良いアイデアかも
横からだけど使わせて貰おう

2022/05/27(金) 06:53:21.55

>>237
おそら>>243さんもそうかな？

あの後寝てしまい申し訳ありません。
8時くらいになるかと思いますが動かしてみますのでお待ちくださいm(__)m
夜遅くまでどうもありがとうございます！(´;ω;｀)

>>238
スミマセン、・そのvariantを弄くり倒す。
からもうよくわからないレベルです。。でもありがとうございます。

>>239
基本はネットで拾ったコードを貼っているので、、
でも自分の参考にはなってます笑。
ありがとうございます。

>>241-242
ちょっと時間あるときに勉強してみますね(;^_^A

2022/05/27(金) 07:26:42.06

>>243
えっ！！何が起こったの？
こっちも5秒で終わりましたっっ！！！えええぇ信じられないスゴイスゴイ！！！(笑)

ちょっと後でゆっくりF8で動かしてみようと思います！！！
本当に助かりました！ありがとうございました！！！
(´;ω;｀)

2022/05/27(金) 07:28:44.47

>>244
見落としてましたスミマセン。修正してなくてもめちゃくちゃ速く動きましたが
こちらも動かしてみますね。ありがとうございました！m(__)m

2022/05/27(金) 08:09:16.73

>>244のは見出しが消えるのを修正したコードでしたね(;^_^A

あと、会社のPCで動かしてみたら2秒もかかりませんでした。
素晴らしいコード、本当にありがとうございましたm(__)m　配列の勉強したいと思います。

**デフォルトの名無しさん** (ｽﾌｯ Sdba-ry9z) · 2022/05/27(金) 08:25:54.12

質問者の要望事項がクリアだったしサンプルコードや表のイメージを出してくれたから回答がしやすかったと思います
殆どの質問者はそんな事までしないクレクレちゃんだから

2022/05/27(金) 08:34:33.43

>>250
昔のテンプレに沿った質問の仕方してなかったのでダメ元でしたが
最低限やるべきことはクリアしてたみたいで良かったです。
(*^-^*)

2022/05/27(金) 10:41:33.58

>>250
これはほんとにそう
ふわっと伝えるだけできちんと勝手に書いてくれると思ってるやつの多いこと

2022/05/27(金) 11:15:34.63

エクセルで10万行以上とか設計が間違ってる

2022/05/27(金) 12:57:26.47

定常業務としてはExcelではやらなくなるにしても、
10万行相手に、最初の試行錯誤をExcelでやってみる
というのはよくある話かと。

設計云々はそれが分かってから。

2022/05/27(金) 13:09:45.71

ワイの感覚では数百行とかでもExcel脱却したいし、
こんなんSQLと適当なスクリプトですぐ済むやろ
Excelになってるから重くなったりしちゃうだけで
Accessはしらん

みんなExcel万能思想すぎるんだよなあ

2022/05/27(金) 13:45:31.62

職場で与えられた環境でどうにかしようとすると、
結果的にVBAやバッチファイル、PSスクリプトになる気がする

2022/05/27(金) 14:07:07.28

SQL書けるんだったら
そもそも質問主はこのスレに来とらんことに気付かない、
ただのマウンテンゴリラはウセヤガレ

2022/05/27(金) 14:16:48.65

VBAもできないからこのスレにいるわけで、間違った道に進む前に正してあげるのは良い

2022/05/27(金) 20:25:14.34

個人用マクロブックからエクセルのシートのマクロを動かす方法がわかりました。ファィル名をtest.xlsm、シートのボタンに登録してあるマクロをsub test()～end subとして
Application.Run"'test.xlsm'!Sheet1.test"
これで動きました。Run以下をダブルクォーテーション、ファイル名をシングルクォーテーションで囲むのがポイントです。

2022/05/28(土) 02:17:11.31

そもそも個人用ってオマ環

2022/05/28(土) 03:26:15.21

権限のない新入社員が勝手にマクロ作って社内のデータ壊したらどうなるかわかっているのかな？
そのデータほんとに削除していいのですか？
条件ミスって消してはいけないデータ削除してしまったら・・・
やろうと思えばできるけど俺は怖くて自前のマクロなんか動かしたいとは思わんのだがな

2022/05/28(土) 03:40:33.21

>>261
データいじる前にバックアップしないのか？

2022/05/28(土) 05:54:52.90

>>261
間違えてデータを削除するプログラムを書いてしまうなんて普通ありえるのだろうか？AIが暴走するといかんからパソコンやスマホを使うのもやめたほうがいいレベルの発言だな

2022/05/28(土) 06:07:09.43

>>261
なんでこんなスレ見てるんだ？

2022/05/28(土) 08:04:53.73

これをループで100個くらいのブックに処理するらしいから漏れのほうが怖いね、ワイ的には
「自動化したから漏れたんだ」とか言われたら今後やりづらくなる

2022/05/28(土) 09:48:04.57

他の.xlsxのファイルの中身を、新たにExcelの画面を開かずに、
配列などに読み込む方法はありますか？
読み込みたいファイルのレコード数は毎回違うのですが、
可能なのでしょうか

**デフォルトの名無しさん** (ｽﾌｯ Sdb3-ibZ+) · 2022/05/28(土) 09:52:31.71

マクロ4.0
もしくはアドレス直指定

visible=False だと実際は開いてても見えないように出来たんだっけか？

2022/05/28(土) 11:35:21.85

aに16進数のABを代入するときは
a=&HAB
だけど、
aに2進数の100を代入するときはどう書く？
a=&B100
だとエラーになるんだが・・・・

2022/05/28(土) 11:39:37.94

>>263
cd /
rm -Rf *

2022/05/28(土) 12:20:10.23

そも2進数なんてvbaにあったっけ

2022/05/28(土) 13:12:36.54

2進数を表すリテラルはないので、16進数や8進数で代用。
変換できればいいのならワークシート関数にある。

2022/05/28(土) 13:19:54.56

>>268
専用の命令はないことも関数のサンプルもググったらすぐ見つかったが他人を辞書代わりにするつもりとかか？