Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/10/22(金) 23:11:35.60

おっと
ちょい間違い

どこ間違ってるか探してみて

2021/10/22(金) 23:21:55.85

>>503
というか、普通に手作業でやってる手順をVBAで書き下せばいいだけだよ

コピペ元の範囲の場所を示す
dim srcRow as long
dim srcCol as long
と、
コピペ先の範囲を示す
dim dstRow as long
dim dstCol as long
を作って、

1～3列目は同じ列、4～6列目は次の行にコピペ

っていう作業を繰り返せばいい。
ペアになる変数はユーザー定義型を使うと見易くなる

type MatrixIndex
Row as long
Col as long
end type
dim src as MatrixIndex,dst as MatrixIndex

2021/10/22(金) 23:34:57.82

>>504
偶数奇数の数列ですね！ありがたやー
>>505
んー　データシートの消し込みって一般常識なんですかね？
まっコメントアウトするだけだし
　iとjが逆かな？　でもなんとかなりそう！
ありがとうございましたア！

2021/10/22(金) 23:40:58.45

>>507
プログラムは作業の手順書とはいえ
>>505さんのクラスモジュールを使うだとか
ユーザー定義型変数を使うという発想に至りませんで・・・
皆様ありがとうございました。

2021/10/23(土) 02:07:03.33

いつものあいつ

2021/10/24(日) 01:40:51.53

>>498
G列に上から1,2と入れて、さらに下方のデータの無いG列に1,2とコピペする
表全体を選択してフィルターを適用。G列でソートする
以上で一行ごとに空行が挿入される
つづいてD1:F2を選択、コピー
A2に形式を選択して貼り付け（空白を無視する）
出来上がり

2021/10/24(日) 02:32:09.51

>>511
別解ありがとうございます
テンプレートファイルがあればそれで良いかもしれませんね

2021/10/24(日) 10:50:30.38

VBAで作ったプロシジャーにショートカットキーを割当てたのですがうまくいきません。
議論用に下のような簡単なプロシジャーをつくり（実際はもっと複雑です）
testShortCutKeyにはCtr+Shift+I
testShortCutKey02にはCtr+Shift+F
を割り当てました。

エクセルのウインドウをアクティブにした状態で
Ctr+Shift+Fを押すと別のアプリのEverNoteがアクティブになり
Ctr+Shift+Iを押すと別のアプリがアクティブになります。
ワードのVBAでも同じくショートカットキーを正しく設定しているのに使えません。

少なくとも今年前半はこんなことはなかったのですが…。
対策はあるでしょうか？

Sub testShortCutKey()
Stop
End Sub

Sub testShortCutKey02()
Stop
End Sub

https://imgur.com/S9WxsoT

2021/10/24(日) 10:52:43.48

>>513
自己レスです。
スクリンショットのリンク先を間違えました。
https://imgur.com/qJeXnl9
が正しいです。

2021/10/24(日) 12:20:50.22

普段よく使う色んな独自マクロ機能を右クリックメニューに登録して、
どんな時にも使えるようアドインファイル(.xlam)化して
XLSTARTフォルダにおいて使っています。

ThisWorkbookに下記コードで、登録と終了時の処理を書いているのですが、
Excelを起動終了するたびに、Excel15.xlbのファイルサイズが肥大化していく
現象で困っています。

Sub Workbook_Open()
Call AddRightClickMenu　'右クリックメニュー追加
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Controls("xxxxx").Delete
End Sub

BeforeCloseの中にExcel15.xlbの強制削除を入れても、勝手にサイズUPした
ファイルが作成されてしまいます。

これを解決する方法があれば、教えてください。

2021/10/24(日) 14:29:28.09

ひとつのシートボタンだけ
まとめたほうが楽じゃないの？

2021/10/24(日) 14:39:49.48

>>513
他ソフトのショートカットと干渉してる可能性がある
例えばalt+F11はGeforceとかぶって使えなかったりする。めんどい

2021/10/24(日) 14:40:27.40

>>513
問題の切り分けとして、
Ctr+Shift+F
をCtr+Shift+KなりCtr+Shift+Uなり、色々試してみて

2021/10/25(月) 13:04:03.44

>>517,518
有難うございました。
Ctr+Shift+Uは干渉しませんでした。
Ctr+Shift+FとCtr+Shift+Iが他のアプリに割り振られているようです。
Ctr+Shift+Fはそのアプリの設定を外すことができました。
Ctr+Shift+Iは外す方法が見つかりませんので別の組み合わせに変更します。

2021/10/25(月) 21:49:13.26

ショートカットに拘るのが
わからん

**471** (ﾜｯﾁｮｲ 2eda-OyHA) · 2021/10/26(火) 13:17:41.14

>>471,472,474です。
間があいてしまい、申し訳ございません。

マクロを実施すると、「支店一覧」Ａ２：Ａ１８のＡ２，Ａ３，Ａ４のシートまでは対応が完了するのですが、
その後Ａ５名のシートが作成されず、「原本（２）」というシートが作成されたあと、以下エラーとなります。
「実行時エラー'1004':
この名前は既に使用されています。別の名前を入力してください。」
.Name = 支店名.Value
の部分が黄色くなっています。

こちらで「支店一覧」をみるかぎりではおかしなところはみあたりません
（もちろんA2:A18に重複もありません）

2021/10/26(火) 14:40:57.52

「この名前は既に使用されています。」って言ってんだからそのシートが存在するんでしょ。見当たらないなら非表示になってるか

2021/10/26(火) 15:44:08.87

以下の処理について質問です
「条件→A列に1行目から文字列が多数行入力されていて、文字列にはa、b、cのアルファベットのどれか一つのみが必ず含まれている。(例 ”15あうa” 例"7c8-of")
やりたいこと→B列に連番を振りたい。aを含む文字列だけで1,2,3,4... bを含む文字列だけで1,2,3,4...のような感じで振りたい。」

一応自分で次のようにやってみたら出来ました
セルC1 C2 C3に a b cと入力して、for eachでC1~C3を括る？
さらにfor eachでA列を括る。
そしてA列にて上のセルから順番にaを含むかif文で判断して連番を入力させる。
b,cについても同様に行うと

for とか ifしか使えないためこのようなやり方をしたのですが、もっと適切な方法があれば教えて頂きたいです。

**471** (ﾜｯﾁｮｲ 2eda-OyHA) · 2021/10/26(火) 15:50:27.98

>>522
非表示でもないです
そもそも「原本（２）」という名前のシートがなぜ作成されるかも謎なんです
（「原本」があるので、「原本（２）」が作成されるときに記載のエラーになるのでは
と推測しています）

2021/10/26(火) 16:18:01.43

>>520
ショートカット以外だとリボンにカスタム登録するしかないけどいちいちマウスを使うと
キーボード操作の流れが途切れる。

2021/10/26(火) 16:35:47.94

そりゃ原本ってシートをコピーしたんだから原本（2）って名前のシートができるだろ

2021/10/26(火) 17:04:12.98

>>523
連番をカウントする変数を3つ作ればいい

**471** (ﾜｯﾁｮｲ 2eda-OyHA) · 2021/10/26(火) 17:28:50.64

ほんとバカですみません、、、
自分が嫌になります
それなのにみなさま返信有難うございます

追加ですみません
支店名シートのA2:A18の中で、★が支店名に含まれているものは
シートを作成しなくてよいという条件を組み込むことはできますか？
あと、各シートを作成したあとに、シートの数式をすべて値にしたいですが
できますか？

Sub シート作成
Dim 支店名 As Range
For Each 名前 In Worksheets("支店名").Range("A2：A18")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 支店名.Value
.Range("B5") = 支店名.Value
End With
　 Range("B3").AutoFilter 1, "0"
With Range("B3").CurrentRegion.Offset(1, 0)
.Resize(.Rows.Count - 1).EntireRow.Delete
　　Range("B3").AutoFilter
End With
Next 支店名
End Sub

2021/10/26(火) 17:29:10.65

>>527
分かりませんでした！もう少し詳しく教えていただけないでしょうか！

2021/10/26(火) 17:39:37.61

a=1:b=1:c=1
for i=1 to 最後の行
if instr(cells(i,1),"a")>0 then
cells(i,2)=a
a=a+1
elseif instr(cells(i,1),"b")>0 then
cells(i,2)=b
b=b+1
：
end if
next i
みたいな

2021/10/26(火) 22:18:39.74

>>523
ここまでせんでもって思うけど
https://i.imgur.com/RQpkaWZ.png

Sub foo()

'準備
myarray = Array("aa", "bb", "cc")

'初期化
Set myDic = CreateObject("Scripting.Dictionary")
For Each x In myarray
myDic.Add x, 0
Next

'本体
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 最終行
For Each x In myarray
If InStr(Cells(i, 1), x) <> 0 Then
myDic(x) = myDic(x) + 1
Cells(i, 2).Value = myDic(x)
End If
Next
Next
End Sub

2021/10/26(火) 22:19:38.61

暇だから書いたけど、実際やるなら>>530みたいなので済ます戸思う

2021/10/26(火) 23:37:03.27

D列のセルに文字を入力するとJ列のセルが塗りつぶされる処理をしたいのだがどうしたら良いものか

Sub Macro1()

If InStr(Range("D1").Value, "") > 0 Then
Range("D1").Offset(0,6).Interior.ColorIndex = 16
Else
Range("D1").Offset(0, 6).ClearFormats

End If
End Sub

2021/10/27(水) 00:02:27.06

条件付き書式でいいんじゃね

2021/10/27(水) 00:17:15.91

条件付き書式でいいが、どうせVBAでやるなら入力のたびに書式をクリアしてから再設定する方がいいよね

2021/10/27(水) 19:45:59.71

条件付き書式がいいんじゃないかなぁ

2021/10/27(水) 20:46:04.85

>>533
If Range("D1").Value <> "" Then
あとはChangeイベントにする

2021/10/28(木) 11:45:30.63

コードを一括エクスポートするアドインでおすすめのってないですか？
Windows10のMicrosoft 365を使っていますが、下記は動作しませんでした。

https://moondoldo.com/DoldoWorkz/?Excel%E3%83%9E%E3%82%AF%E3%83%AD/VBA%E3%83%9E%E3%82%AF%E3%83%AD%E3%81%AE%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%E3%82%92%E3%82%A8%E3%82%AF%E3%82%B9%E3%83%9D%E3%83%BC%E3%83%88
ExcelVBAExport2007_xlam_20100321.ZIP → ExcelVBAExport2007.xlam

2021/10/28(木) 11:50:21.99

>>538
できた！これから手順を書いていく。

2021/10/28(木) 12:12:13.13

>>538
上記サイトに記載されているとおり、
アドインフォルダに.xlamファイルをコピーし、アドイン登録を済ませて、
[Visual Basic プロジェクトへのアクセスを信頼する]のチェックボックスをオンにした状態でも、
[開発]タブに[エクスポート][選択エクスポート]が表示されなかったので、
最新のExcelでは使えないと勘違いしていたが、下記の手順で使えるようになった。

①エクスポート対象のxlsmファイルを開く。
②[開発]-[Excelアドイン]をクリックする。
③有効なアドイン一覧に、既に登録済みのExcelvbaexport2007がある。
④既にチェックボックスはオンになっているが、そのまま[参照]ボタンを押す。
⑤アドインフォルダ(～Roaming\Microsoft\AddIns)が開く。その中のExcelVBAExport2007.xlamを選択する。
⑥「この場所に'～Roaming\Microsoft\AddIns\ExcelVBAExport2007.xlam'という名前のファイルが既にあります。置き換えますか？」と聞かれる。
⑦[はい]を選択する。
⑧[OK]ボタンを押してアドインウィンドウを閉じる。

[開発]タブ内の右端に[エクスポート][選択エクスポート]が現れる。

2021/10/28(木) 16:45:24.43

Excel 2019
「オプション」－「詳細設定」の「グラフィックアクセラレータを無効にする」のチェックを
VBAで設定するにはどうすればいいでしょうか？
AccessだとApplicationのSetOptionやGetOptionでできるんだけど、
Excelには見当たらないのでよろしくお願いします。

2021/10/28(木) 19:13:26.37

https://ja.play-and-more.com/4226-turn-off-hardware-graphics-acceleration-office-2013
ハードウェアアクセラレータ―の設定については、
Excel と Word の設定が連動しているので、
Excel のオプションから設定を変更することで
Word 側にも設定を反映することはできます。

2021/10/28(木) 20:43:34.51

>>530
>>531
ありがとうございます！
別のケースに応用できるのでありがたいです！

2021/10/29(金) 13:13:50.85

同じpersonal..xlsbを複数の端末で使いたいので xlstart フォルダーから同期フォルダーに移動し
xlstart フォルダーではかわりに同期フォルダー内のpersonal.xlsb へのショートカットを置きました。
期待通り起動時にpersonal.xlsbを読み込みますが毎回マクロの実行許可を求めるので面倒です。
マクロ有効ファイル一般の仕様であることは理解しておりますが、特定のマクロファイルのみ確認を省略するか、
またはxlstart内にpersonal..xlsbにおいたまま同期する方法はないでしょうか。
xlstartフォルダー自身を同期フォルダーに設定することも検討しましたが、
googlドライブの場合は同期フォルダーは全てGドライブに移動するので
xlstartフォルダ自体が自動実行できなくこと、またpersonal.xlsb起動時にマクロを有効にするか確認
がはいり解決になりません。

2021/10/30(土) 12:52:49.36

>544
信頼できる場所に追加するとか、デジタル署名付けるとかしたら行けるんじゃ？
しらんけど

2021/10/30(土) 15:59:41.68

>>545
知らんのかい

**546** (ﾜｯﾁｮｲ c1da-BvZE) · 2021/10/30(土) 16:14:32.06

>>545
personal.xlsbを信頼できるドキュメンに設定したらできました．
無礼な物言いごめんなさい．

2021/10/30(土) 16:52:18.20

ゆるさん、打ち首じゃ

2021/10/30(土) 18:39:08.12

めんご

2021/10/30(土) 18:39:42.42

りんご

2021/10/30(土) 18:44:01.08

マンゴ

2021/10/30(土) 22:30:09.59

三兄弟

2021/11/04(木) 12:18:24.94

for i = 1 to 100 step 1

　　'最終行は処理中に変動するため栗けしの都度最終行を取得する
　　Worksheets(OutputSheetName).Cells(1000, 1).Select
　　Selection.End(xlUp).Select
　　iRastrow = Selection.Row

　　for j =2 to iLastrow step 1
　　　何らかの処理
　　next j
next i

上記のようなプログラムがあったとして j=2、iLastrow=1のように最初から子ループの終了条件を満たしているようなケースで
子ループの j が 2でクリアされず親ループの繰り返しの都度 3,4...と加算されていくケースがあるんだけどさ

最初からループの終了条件を満たしている場合は、for j=2 … の部分の変数値のクリアはされないものなの？
終了条件を満たしているか満たしていないかに限らず、この行にきたら j=2 でクリアしてくれると思ってたんだが…

2021/11/04(木) 12:30:43.13

LとRはいいの？

2021/11/04(木) 12:43:19.95

ごめん、そこは単なる書き間違い
実際のコードはLで統一されとります

**デフォルトの名無しさん** (ｽﾌｯ Sd33-ZpU0) · 2021/11/04(木) 13:10:37.18

--ここから読む--

2021/11/04(木) 16:49:49.42

コボル、フォートラン、LISP、VBA、、、

2021/11/04(木) 19:17:22.94

>>557
色々行ったけど一つとしてものにならなかった…？

2021/11/04(木) 19:43:59.36

エクセルでチェック表作った

職員に入力してもらって月一で提出してもらってrpaツールに流し込んで専用ソフトに入力してるけど

バージョンアップしたファイル渡したのに
無視して古いファイル使ってきたり
様式ぶち壊してめちゃくちゃなファイルを提出してきて
まともなデータに成形するのに死ぬほど苦労した
ゴミ職員にたいしてブチ切れそうなんだけど
どうしたらいいですか

2021/11/04(木) 19:49:57.71

新しいファイル以外の提出は受け付けなければいい

2021/11/04(木) 19:53:35.21

なるほどありがとう
このゴミ職員エクセルを魔法か何かと勘違いしてるわ
あまりに適当な仕事に腸煮えくり返る

2021/11/04(木) 20:01:42.86

>>553
jの値はどこでどうやって確認したんだ？

2021/11/04(木) 20:21:03.55

>>561
お前みたいな馬鹿が作っているからそうなる

2021/11/04(木) 20:33:51.75

どういう状況のファイルかもわからんで煽るバカに言われてもな

2021/11/04(木) 20:44:25.67

>>564
壊されるような造りになってるのが馬鹿の証だぞ

2021/11/04(木) 20:47:33.02

>>561
妥協点として下位互換は残しておいて
それでも成形の必要があるやつはお断りかな

成形はあなたの仕事では無いよ
ただ提出者が楽なようにしてるだけだと思う
それは提出者が仕事してないって事だな

2021/11/04(木) 20:49:27.77

仕方ないね。元は別の人が勝手に作った表で
おれのはその表をコピーして○がつけられるようにしたものだから

人のファイルを保護かけてガチガチに固めて私物化するわけにも行かないし
お前みたいな後先考えられないバカは
他所のファイルをガチガチに固めて属人化して批判されるんだろうけど

2021/11/04(木) 20:51:12.58

>>567
典型的な馬鹿の言い訳

2021/11/04(木) 20:53:21.15

もう反論終わって罵倒で誤魔化すタイムか
知能指数低すぎるわ

2021/11/04(木) 20:58:17.15

と、バカが申しております。

2021/11/05(金) 05:16:46.04

>>553
そもそも

>> 子ループの j が 2でクリアされず親ループの繰り返しの都度 3,4...と加算されていくケースがある

が起きてるとどうやって判断したのかが分からない。

例えば実行できるコードにdebug.printを挿入しておいて、
「これを実行するとこんな出力されます、実際にはこうなって欲しいです」
みたいな具体的な質問してくれた方がいいと思う。

そういう分かりやすい質問文書くと、その過程で自己解決できたりするし。

2021/11/05(金) 06:16:51.41

>>567
とは言え上でも言われている通り
違うフォーマットのものは受け付けないようにするか
触られたくないところは保護掛けるくらいしか現実的な解決策はないだろうね

形式の違うもの送られて来たからこちらで手で直す、というのは基本的に違う気がする。

フォーマットチェックを行うツールを作ってそのゴミ職員とやらに「これでOKとならないものは受け付けません」とやる手もあるけど、そのツール作るのにも工数は掛かるからね。

2021/11/05(金) 06:56:51.17

>>559
>無視して古いファイル使ってきたり

1,共有サーバーに置いてショートカットから起動させる
2,実際の処理はサーバーにやらせる。
3,VBA諦めてWebアプリにする

>様式ぶち壊してめちゃくちゃなファイルを提出してきて

そういうのは警告メッセージだして拒否するもの。

これまで未対応の様式のファイルも修正するおせっかいをしておきながら、
「めんどくさい」と突然キレるのは最悪。
やるならやりきる、やらないなら最初からやらない。中途半端は一番ダメだからね。
もしくはVBA諦めてテキスト関連のライブラリ豊富な使いやすい言語にする。

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 08:36:41.38

>>559
こういう風にやれよっていう説明資料が足りてないんだろ。
自責部分は改善してして、それでも従わない奴には突き返して再提出してもらうのが良い

2021/11/05(金) 08:42:12.18

話を聞かない、説明を読まない、世の中の大多数はアホばかり
まあこのことに気付かないで文句ばっか言ってるのもたいがい間抜けなんだけど

現実を受け入れて、バカにも使える仕様を考えるのが仕事ってもんだ

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 09:17:23.17

それはまあそうなんだけど資料を揃えておけば
ひとまず相手側のせいにできるからそれを根拠に文句は言いやすいわ

2021/11/05(金) 10:08:06.00

現場で変更するのはもとファイルが使いにくいからじゃないのか

2021/11/05(金) 10:16:00.53

確かにチェックつけるだけなのになぜ改変されるのか謎

2021/11/05(金) 10:22:26.73

よく見たら提出って言ってるな。
フォーマットに整形させたファイルをマクロつかって登録させる仕組みじゃないのか。

もしかしてVBAの話ですらない？

2021/11/05(金) 10:25:07.86

>>553
step 1　が気持ち悪い
てか、まずこういうの作って実験してみればいいじゃん
挙動がわからなければ、めんどくさがらず小さなプログラム書いてどう動くか実験
そういうことやる癖つけないと厳しいよ

Option Explicit

Sub TestSub()
Dim i As Integer
Dim j As Integer

Dim lastRow As Integer
lastRow = 1

For i = 1 To 10
For j = 2 To lastRow
Debug.Print "aa"
Next j
Next i
End Sub

まぁ、普通に考えれば、どう見てもiRastrowが1ではなく別のもっと大きな値をとっている可能性が果てしなくでかいわ

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-slLX) · 2021/11/05(金) 10:52:29.16

デバッグで値確認していけばいいだけの話

2021/11/05(金) 12:18:28.52

確認した結果、言語に致命的な問題があったという研究報告だろ
異論があるなら論文で提出しろや

2021/11/05(金) 12:19:13.47

文系プログラマにデバッガ使えは酷

2021/11/05(金) 12:24:56.88

研究報告は5chで

2021/11/05(金) 13:48:49.56

>>576
毎回一人ずつ文句を言うのもかなり面倒な作業だと思うがな
俺なら同じ時間と手間を掛けるならパソコンに向かってコーディングしてた方がいいわ

2021/11/05(金) 17:15:34.16

作業ルールの変更は職場長の許可もらってやれよ
勝手に変なシート作ってフォーマット変えるなとか言われてもね

2021/11/06(土) 09:43:33.18

年末調整面倒くさい
何故に毎回フォーマットを変えるのか
いや、分かるよ、控除や税金計算が変わってるんだから仕方ないけどさ、
国には毎年キチンと高い税金納めているんだからEXCELで自動計算してくれて、それ印刷して提出すればいいくらいのもの作ってくれないのかなぁ

2021/11/06(土) 09:54:07.39

>>587
いや、むしろ自治体から「年末調整やっておいたから内容確認して」
と連絡メールが来るくらいのことをしてくれていいと思う

2021/11/06(土) 11:02:12.05

>>587
うちの会社はイントラで内容確認して問題なければ「申請する」ボタンをクリックするだけだよ
俺は嫁がパートに出てるからその年収入力が必要だけど昔に比べたらめっちゃ楽になった

2021/11/06(土) 11:40:54.21

ちょっと思いて調べたらユーザー定義関数でもスピルできるんだな
今度実験してみるか

2021/11/06(土) 13:59:19.77

>>587
高額納税者なら会計士にたのめばええ
控除とか支給金とか、毎年新しい制度まできちんとチェックして、うちで使えるやつを教えてくれる
家族構成まで考慮して節税のアドバイスもくれるし、確実に手数料以上のメリットがある

2021/11/06(土) 19:50:35.22

>>589
扶養に入っていていてもメルカリ等で得た利益を合計すると扶養から外れることがあるからな

2021/11/07(日) 03:10:59.12

税理士のことを会計士って呼ぶやつはかなりの高齢だって聴いたことがあるわ

2021/11/07(日) 06:37:50.24

んな奴おらん
会計士は公認会計士の事

2021/11/07(日) 22:57:31.69

オランダはオラんだ

2021/11/07(日) 23:38:18.06

シンガポールの芯がポール

2021/11/08(月) 08:49:01.66

タイ米でタイ飯を炊く

2021/11/08(月) 12:53:20.11

そびえ立つソビエト

2021/11/08(月) 13:31:29.26

VBAの構造体で
Type Book
　　title As String
　　author As String
　　price As Long
End Type

桁数を予め指定しておくことてできないんですか？
こんなような感じで
Type Book
　　title As String (10)
　　author As String (10)
　　price As Long (5)
End Type

2021/11/08(月) 14:09:40.47

StringならString * 10 とかでできる。
Longは大きさ決まってるから指定できないはず。

2021/11/08(月) 16:24:53.09

>>587
前半は分かるけど、なんでそこでエクセルが出てくるんだよ

2021/11/08(月) 20:42:50.40

>>599
クラスつくってプロパティの代入時にチェックいれればいいんじゃね

2021/11/08(月) 20:52:16.35

>>601
数式だけでちゃちゃっと出来そうじゃん
そんなんで本格的なWebサイト作ってアクティブレポートとかではくより
このEXCELファイルダウンロードして必要なところに入力してねで終わらせた方が安上がりだし
むしろここ、EXCELVBAのスレだからEXCELにすらかすってないこと書くのってなんか気が引けるじゃん

2021/11/09(火) 09:52:46.91

というか、最悪Webフォームやらにして、番号言えば参照してもらえるって感じでいいとおもうけどね
印刷とかしてもってくのめんどいし
本人確認で行くのはしゃあないとして

ま、スレ違い

2021/11/09(火) 15:30:51.99

>>600
TypeてVBAでできるけど、VBScriptだとできないんだな。
やりたいことは全銀フォーマットをCSVにしたかったんだけど、別のやり方でやったわ。