!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
探検
Excel VBA 質問スレ Part72
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (スププ Sdaa-x2SP)
2021/07/18(日) 08:42:15.37ID:KskL7bEXd596デフォルトの名無しさん (JP 0Hc3-FcIJ)
2021/08/22(日) 13:02:31.83ID:HhgXzLK4H 配列だろうがリストだろうがそこは自由
とにかくループ中で母集団をいじらなければいいだけの話だから
とにかくループ中で母集団をいじらなければいいだけの話だから
597デフォルトの名無しさん (ワッチョイ ff02-VfHF)
2021/08/22(日) 13:03:46.65ID:0Cz6ueFz0 Rustのメモリ安全性はボローチェッカーによって担保されているが、
Nimと比較してRustはタイプ量が多い事により限りなく低い生産性と
C++のような高い難読性、超巨大なバイナリ生成性能を兼ね備えています
Nimはバージョン1.5.1でRustのボローチェッカーに似た「View types」が実装されれば、
GC無しのView typesで参照の有効性を検証することによってメモリ安全性を保証しつつ
限りなく抑え込まれたタイプ量で高速化したCのソースコードを吐き出せます
Nimソースコード ==nimコンパイラ==> Cソースコード ==Cコンパイラ==> バイナリ
なので、nimコンパイラが通った時点でメモリ安全性が担保されませんか?
Nimの実験的特徴 バージョン1.5.1
http://nim-lang.github.io/Nim/manual_experimental.html
第二プログラミング言語として Rust はオススメしません Nim をやるのです
https://wolfbash.hateblo.jp/entry/2017/07/30/193412
Nimは限りなく抑え込まれたタイプ量で高い生産性とPythonのような高い可読性を実現し
ているにもかかわらず、高速なCのソースコードを吐き出せるのでC言語でリモートワーク
されている方は割り振られた仕事が早く終わっても終わってないふりをして怠けることができる
「怠け者とはこうあるべきだ!」と言うとても大事な事を Nim は我々に教えてくれます
Nimと比較してRustはタイプ量が多い事により限りなく低い生産性と
C++のような高い難読性、超巨大なバイナリ生成性能を兼ね備えています
Nimはバージョン1.5.1でRustのボローチェッカーに似た「View types」が実装されれば、
GC無しのView typesで参照の有効性を検証することによってメモリ安全性を保証しつつ
限りなく抑え込まれたタイプ量で高速化したCのソースコードを吐き出せます
Nimソースコード ==nimコンパイラ==> Cソースコード ==Cコンパイラ==> バイナリ
なので、nimコンパイラが通った時点でメモリ安全性が担保されませんか?
Nimの実験的特徴 バージョン1.5.1
http://nim-lang.github.io/Nim/manual_experimental.html
第二プログラミング言語として Rust はオススメしません Nim をやるのです
https://wolfbash.hateblo.jp/entry/2017/07/30/193412
Nimは限りなく抑え込まれたタイプ量で高い生産性とPythonのような高い可読性を実現し
ているにもかかわらず、高速なCのソースコードを吐き出せるのでC言語でリモートワーク
されている方は割り振られた仕事が早く終わっても終わってないふりをして怠けることができる
「怠け者とはこうあるべきだ!」と言うとても大事な事を Nim は我々に教えてくれます
598デフォルトの名無しさん (ワッチョイ 7f01-9KvQ)
2021/08/22(日) 13:08:21.86ID:bz4GO5A/0 >>595
リストでもいいけどVBAで簡単に扱えるものある?
リストでもいいけどVBAで簡単に扱えるものある?
599デフォルトの名無しさん (ワッチョイ 7f4f-AI8d)
2021/08/22(日) 19:40:10.48ID:HSx9B6Zm0 >>591
遅くなってすまない。
そうだな、バカはほっといて
Filesのループだけで何とかする方法か。
Filesのループだけで何とかすることは出来ないことはないが、
綺麗に一重のループという方法は今すぐには思いつかないな。
だが、フォルダから直でやり取りしたいからというのであれば、
方法としては>>571で書いた方法とほぼ一緒だが、
Filesのループであればエンティティクラスは使えない。
ではどうするか、といったところで、ループで加工を終了したxlsxのパス名、
または加工する際に使ったxlsmのパス名を何等かの形で保持して、
後はファイルを作った際にループを再帰して加工が終わった
ファイルの処理は飛ばしてしまえばいい。
そうすれファイルを追加した後のファイルの順序やどこからループするか、
どこまでループするかをあまり気にする必要はない。
ただ、その分ループの回数は増える。が、もし現在の
Collectionの仕様が変わったとしても使うことが出来るだろう。
前回作ったソースを少し弄ってそんな感じにしたので、
展開しておこう。
https://pastebin.com/9QVrJDjF
遅くなってすまない。
そうだな、バカはほっといて
Filesのループだけで何とかする方法か。
Filesのループだけで何とかすることは出来ないことはないが、
綺麗に一重のループという方法は今すぐには思いつかないな。
だが、フォルダから直でやり取りしたいからというのであれば、
方法としては>>571で書いた方法とほぼ一緒だが、
Filesのループであればエンティティクラスは使えない。
ではどうするか、といったところで、ループで加工を終了したxlsxのパス名、
または加工する際に使ったxlsmのパス名を何等かの形で保持して、
後はファイルを作った際にループを再帰して加工が終わった
ファイルの処理は飛ばしてしまえばいい。
そうすれファイルを追加した後のファイルの順序やどこからループするか、
どこまでループするかをあまり気にする必要はない。
ただ、その分ループの回数は増える。が、もし現在の
Collectionの仕様が変わったとしても使うことが出来るだろう。
前回作ったソースを少し弄ってそんな感じにしたので、
展開しておこう。
https://pastebin.com/9QVrJDjF
600デフォルトの名無しさん (ワッチョイ 9f2f-YC+D)
2021/08/22(日) 19:51:55.58ID:QHUWYA/B0 いちおうVBAにCollectionってあるけどな
.Net FrameworkのArrayListとかQueueとかつかえばいいんじゃね
.Net FrameworkのArrayListとかQueueとかつかえばいいんじゃね
601デフォルトの名無しさん (ワッチョイ 9f2f-YC+D)
2021/08/22(日) 20:00:01.46ID:QHUWYA/B0 まずFilesってのが何なのかはっきりしとけ
まあFileSystemObjectのやつだろうけど
あれは、位置指定で取り出したり出来なかったりする、かなり特殊な列挙だった気がする
つか、追加処理でディレクトリ舐めて、そのあともう1回ディレクトリ舐めて処理すればいいだけじゃないのか?
再帰とか意味不明なんだが
たんに2回ループ回すことを再帰と言ってる?
まあFileSystemObjectのやつだろうけど
あれは、位置指定で取り出したり出来なかったりする、かなり特殊な列挙だった気がする
つか、追加処理でディレクトリ舐めて、そのあともう1回ディレクトリ舐めて処理すればいいだけじゃないのか?
再帰とか意味不明なんだが
たんに2回ループ回すことを再帰と言ってる?
602デフォルトの名無しさん (ワッチョイ 9f2f-YC+D)
2021/08/22(日) 20:18:32.39ID:QHUWYA/B0603デフォルトの名無しさん (ワッチョイ ff68-RJcP)
2021/08/22(日) 20:44:15.61ID:3/Qg+sLj0604デフォルトの名無しさん (ワッチョイ 7f2c-YC+D)
2021/08/22(日) 21:49:43.11ID:aqCRpfAk0 配列をループ中に、要素を追加・削除するのは、
すべての言語で、バグるから禁止
要素の追加・削除で、要素がずれるから、どうなるか分からない
すべての言語で、バグるから禁止
要素の追加・削除で、要素がずれるから、どうなるか分からない
605デフォルトの名無しさん (ワッチョイ 1f5f-N+XL)
2021/08/22(日) 21:56:43.26ID:Dh2ra7Yx0 最終手段はGoToでループ抜けることになるけど、xlsmの時の処理とxlsxの時の処理を分岐させればいいだけよね
606デフォルトの名無しさん (アウアウウー Sa63-jkpn)
2021/08/22(日) 22:19:55.50ID:xquIY43qa 好きなように作れよ
607デフォルトの名無しさん (ワッチョイ 7f42-WoPw)
2021/08/22(日) 22:29:56.81ID:fZZZNArf0608604 (ワッチョイ 7f2c-YC+D)
2021/08/22(日) 23:15:55.98ID:aqCRpfAk0 完全に、処理を分けて作る
まず、拡張子だけを変える。
これで処理対象のファイルを確定させる
その後、処理対象のファイルだけを処理すればよい。
この手順なら、処理中に処理対象のファイル数が増減することはない
とにかく、バグらないような手順を作ることが大事
まず、拡張子だけを変える。
これで処理対象のファイルを確定させる
その後、処理対象のファイルだけを処理すればよい。
この手順なら、処理中に処理対象のファイル数が増減することはない
とにかく、バグらないような手順を作ることが大事
609デフォルトの名無しさん (ワッチョイ 7f4f-cvdf)
2021/08/23(月) 08:26:55.69ID:LGNn5NAE0610デフォルトの名無しさん (ワッチョイ 1f5f-N+XL)
2021/08/23(月) 08:53:51.78ID:cXrkxB5+0611デフォルトの名無しさん (ワッチョイ ff68-FcIJ)
2021/08/23(月) 10:54:22.12ID:FgZeCk1s0 goto finaly
612デフォルトの名無しさん (ワッチョイ ff30-/WcA)
2021/08/23(月) 23:10:58.58ID:JXgHy/i50 ちょっとスレ違いで恐縮ですが知ってる方がいたら教えてください 3D CAD(catia v5、ソリッドワークス、NXなど)のVBAについて話題にしてるスレとかご存知の方いれば教えてください
613デフォルトの名無しさん (ワッチョイ 7f42-WoPw)
2021/08/24(火) 01:04:28.30ID:O47VPk1P0 そんなものはない
614デフォルトの名無しさん (ブーイモ MMc3-zYVw)
2021/08/24(火) 01:15:14.20ID:F5g8S0IPM >>612
これらの3D CADにVBAが載ってるの?
これらの3D CADにVBAが載ってるの?
615デフォルトの名無しさん (JP 0Hc3-FcIJ)
2021/08/24(火) 04:11:27.55ID:daNQErAcH エスパーするとマクロのことだろ
616デフォルトの名無しさん (ワッチョイ 9f8e-ma+S)
2021/08/24(火) 05:20:46.31ID:TjlSba9p0 >>612
馬鹿は死ね
馬鹿は死ね
617デフォルトの名無しさん (ワッチョイ 7f4f-cvdf)
2021/08/24(火) 08:13:34.81ID:klPKE9MS0 >>612
そんなスレは存在しないし立てたとしても誰もレスしないだろう。
質問があるならこっちで聞けばひょっとすると誰か答えてくれるかもな
スレ立てるまでもない質問はここで 157匹目
https://mevius.5ch.net/test/read.cgi/tech/1624024239/
そんなスレは存在しないし立てたとしても誰もレスしないだろう。
質問があるならこっちで聞けばひょっとすると誰か答えてくれるかもな
スレ立てるまでもない質問はここで 157匹目
https://mevius.5ch.net/test/read.cgi/tech/1624024239/
618デフォルトの名無しさん (ブーイモ MMc3-zYVw)
2021/08/24(火) 08:30:12.55ID:g24P+U87M 調べたら、SolidWorksはAPIでVBAとかC(++)とかから呼び出せるみたいだから、Excel VBA で呼ぶ範囲ならこのスレでも良いんじゃない?
CAD ソフト側の特有の動作は答えられる人少ないか居ないだろうけど
CAD ソフト側の特有の動作は答えられる人少ないか居ないだろうけど
619デフォルトの名無しさん (ワッチョイ ffda-jkpn)
2021/08/24(火) 09:09:24.64ID:4r51bMHN0 >>618
そんな質問してないだろ
そんな質問してないだろ
620デフォルトの名無しさん (テテンテンテン MM4f-9KvQ)
2021/08/24(火) 12:58:36.89ID:v4BujoFfM SolidWorksのAPI呼んでなにかしようとするような奴がこんfなスレでVBAの質問なんてしないだろw
621デフォルトの名無しさん (ブーイモ MMc3-ACe6)
2021/08/24(火) 13:07:40.15ID:Ggt7zoavM でも、3D CADのVBAって言っちゃうレベルの質問者さんだし...
622デフォルトの名無しさん (エムゾネ FF9f-tXhk)
2021/08/24(火) 15:14:02.93ID:WZMj7UxVF 馬鹿には無理
623デフォルトの名無しさん (オイコラミネオ MM23-PhLg)
2021/08/24(火) 18:59:28.08ID:Tulkbq4hM 最悪go toもありだろ
624デフォルトの名無しさん (ブーイモ MMc3-7Mq8)
2021/08/24(火) 20:36:36.02ID:DkRvLF/FM おまいら、質問者を馬鹿にするのやめろよ
625デフォルトの名無しさん (ブーイモ MM9f-UIif)
2021/08/24(火) 21:11:06.89ID:4FqDVhnYM 「貴方には無理」と言ってあげるのも親切
馬鹿が諦めず無理してるおかげで周囲は迷惑してる
馬鹿が諦めず無理してるおかげで周囲は迷惑してる
626デフォルトの名無しさん (ワッチョイ ff68-RJcP)
2021/08/24(火) 21:17:10.14ID:PotHtuTn0 dllやAPIアリならもうなんでもvbaのような
627デフォルトの名無しさん (ワッチョイ ff68-RJcP)
2021/08/24(火) 21:17:46.98ID:PotHtuTn0 知ってたら答えるけど、あまりにも知ってる人が少なすぎる
メーカーに聞いた方が早いとおもう
メーカーに聞いた方が早いとおもう
628デフォルトの名無しさん (アウアウウー Sa63-LN3e)
2021/08/24(火) 22:24:25.02ID:EnLftN4na >>612
話題になってませんが聞くならこっちのスレかな?
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
https://itest.5ch.net/mevius/test/read.cgi/tech/1432173164
0001 デフォルトの名無しさん 2015/05/21 10:52:44
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もOK
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
話題になってませんが聞くならこっちのスレかな?
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
https://itest.5ch.net/mevius/test/read.cgi/tech/1432173164
0001 デフォルトの名無しさん 2015/05/21 10:52:44
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もOK
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
629デフォルトの名無しさん (ワッチョイ 7fad-FcIJ)
2021/08/25(水) 00:31:39.65ID:1unhm7rk0 VBEの入力支援で「WorksheetFunction」って邪魔ですよね。
「Worksheets」が第一候補に表示されればいいのに。
「Worksheets」が第一候補に表示されればいいのに。
630デフォルトの名無しさん (アウアウウー Sa63-wElo)
2021/08/25(水) 01:55:37.60ID:7J8MKXIfa 辞書順だから仕方がないよね
631デフォルトの名無しさん (ブーイモ MM0f-kXDh)
2021/08/25(水) 07:25:33.24ID:SRu++D3OM 客先のお偉いさんにコンテンツの有効化を行わずにマクロを動かせと無茶振りされるなどした
決してデジタル署名云々をなどという話ではなく
既存のツールのコードをいじらずにWorkbook_Openのイベントを回避せよとのご指示を頂いたのだ
どうしたものか
決してデジタル署名云々をなどという話ではなく
既存のツールのコードをいじらずにWorkbook_Openのイベントを回避せよとのご指示を頂いたのだ
どうしたものか
632デフォルトの名無しさん (ワッチョイ ff68-RJcP)
2021/08/25(水) 07:35:04.03ID:ltkpDR880 >>631
他のブックにマクロを書いて
・イベント停止
・ブックopen
Sub foo()
Application.EnableEvents = False
Workbooks.Open (ThisWorkbook.Path & "\book1.xlsm")
Application.EnableEvents = True
End Sub
他のブックにマクロを書いて
・イベント停止
・ブックopen
Sub foo()
Application.EnableEvents = False
Workbooks.Open (ThisWorkbook.Path & "\book1.xlsm")
Application.EnableEvents = True
End Sub
633デフォルトの名無しさん (ブーイモ MM0f-kXDh)
2021/08/25(水) 07:39:39.81ID:SRu++D3OM あ、他ファイルの新規作成も一切ダメだそうです
634デフォルトの名無しさん (ワッチョイ ff68-RJcP)
2021/08/25(水) 07:50:37.91ID:ltkpDR880 じゃあ基本イベント停止にしてマクロを動かしたい時だけ
Application.EnableEvents = True
だな
Application.EnableEvents = True
だな
635デフォルトの名無しさん (ブーイモ MM0f-kXDh)
2021/08/25(水) 08:12:30.95ID:SRu++D3OM 既存のツールのコードに手を加えるのはNG、別のファイルを作成するのもNG、数百人ほどいる作業員に配布してるツールだからExcelの設定を変更して回るのも現実的ではない
要するに作業工数を発生させずにイレギュラーに対応出来る特殊仕様用のツールを作れって事みたい
要するに作業工数を発生させずにイレギュラーに対応出来る特殊仕様用のツールを作れって事みたい
636デフォルトの名無しさん (ワッチョイ 7f42-WoPw)
2021/08/25(水) 09:17:10.78ID:ZSU75DCm0 なんか話おかしくね
そのイレギュラー対応ツールはどこに置いて誰が使うことを想定してんだ
そのイレギュラー対応ツールはどこに置いて誰が使うことを想定してんだ
637デフォルトの名無しさん (テテンテンテン MM4f-9KvQ)
2021/08/25(水) 09:40:43.13ID:ZqZAJ3QxM 相手すんなよ偉いさんに振られた内容を盛って語ってるだけだろ
そもそも客先からの要請なら普通にできないって断ればいいだけだし
そもそも客先からの要請なら普通にできないって断ればいいだけだし
638デフォルトの名無しさん (ブーイモ MM0f-kXDh)
2021/08/25(水) 10:21:16.42ID:SRu++D3OM いやまぁ断るんだけどさ
逐一ネットワークドライブのファイルとやりとりをしてるツールを社外の下請け業者にも使わせたいんだと
まぁ当然ながら下請け業者からはネットワークドライブに接続はできないんよ
だから何するにしてもエラーが出ます。なんならファイルを開いた時にコンテンツの有効化を押した時点でエラー出ますよ。って言ったらコンテンツの有効化を押さずにマクロを動かせば良いじゃないかって怒鳴りながら台パンされたのが昨日の話
逐一ネットワークドライブのファイルとやりとりをしてるツールを社外の下請け業者にも使わせたいんだと
まぁ当然ながら下請け業者からはネットワークドライブに接続はできないんよ
だから何するにしてもエラーが出ます。なんならファイルを開いた時にコンテンツの有効化を押した時点でエラー出ますよ。って言ったらコンテンツの有効化を押さずにマクロを動かせば良いじゃないかって怒鳴りながら台パンされたのが昨日の話
639デフォルトの名無しさん (ワッチョイ ff24-jkpn)
2021/08/25(水) 10:33:09.92ID:PF+Wtj1u0 それで金もらうんでしょ
640デフォルトの名無しさん (ワッチョイ 7f4f-cvdf)
2021/08/25(水) 13:39:00.29ID:9wT7W/qy0 >>638
断るという方針を決めているなら解決だな
断るという方針を決めているなら解決だな
641デフォルトの名無しさん (ワッチョイ 1fcc-zH/y)
2021/08/25(水) 14:41:15.54ID:j973WKJq0 ユーザーフォームのコンボボックスでドロップボタンをおすと実行され、リストができるのですが、項目を選択しても反映されず空欄になってしまいます。
反映されるにはどうしたらいいでしょうか
Private Sub ComboBox3_DropButtonClick()
Dim LastDay As Long, MyYear As Long, MyMonth As Long, r As Long
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
End Sub
反映されるにはどうしたらいいでしょうか
Private Sub ComboBox3_DropButtonClick()
Dim LastDay As Long, MyYear As Long, MyMonth As Long, r As Long
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
End Sub
642デフォルトの名無しさん (ラクッペペ MM4f-U159)
2021/08/25(水) 14:45:50.68ID:vgh3MVy/M しらんけど
月の変更時にやるもんじゃね?
月の変更時にやるもんじゃね?
643デフォルトの名無しさん (ワッチョイ 7f4f-cvdf)
2021/08/25(水) 15:11:25.13ID:9wT7W/qy0 知らんけど変数の頭によくMyとかmyとか付ける人いるけど私の年とか私の月なの?
644デフォルトの名無しさん (ブーイモ MMe3-7Mq8)
2021/08/25(水) 15:32:21.08ID:KYWpPte7M mousedown でやるとか?
645デフォルトの名無しさん (ワッチョイ 7f42-WoPw)
2021/08/25(水) 15:50:44.79ID:ZSU75DCm0 ComboBox3のイベントでやることじゃないんじゃね
646デフォルトの名無しさん (アウアウウー Sa63-N+XL)
2021/08/25(水) 17:16:17.54ID:92U/3Tama DropButtonClickが発火していない可能性をまず見る
Combobox1とCombobox2の頭に「.」が付いていないことが原因か調べる
来月1日の1日前から今月の対象月の終了日…の日本語がよくわからんが、仮にMyMonthが12ならどうなるの?というのは気になる
そもそもDay関数で0日を指定しているんだから、どうやってもLastDayって0になるんでは?
最後のが原因かとは思うが、とりあえず気になったところを
Combobox1とCombobox2の頭に「.」が付いていないことが原因か調べる
来月1日の1日前から今月の対象月の終了日…の日本語がよくわからんが、仮にMyMonthが12ならどうなるの?というのは気になる
そもそもDay関数で0日を指定しているんだから、どうやってもLastDayって0になるんでは?
最後のが原因かとは思うが、とりあえず気になったところを
647デフォルトの名無しさん (アウアウウー Sa63-N+XL)
2021/08/25(水) 17:19:41.69ID:92U/3Tama648デフォルトの名無しさん (ワッチョイ ff56-nscA)
2021/08/25(水) 18:17:55.62ID:7AvRhiNY0649デフォルトの名無しさん (ワッチョイ 7f01-/QDj)
2021/08/26(木) 01:04:55.66ID:3Wwx5xcw0 >>641
まぁなんでもいいんだけどこういうテストしてみる
TextBox1を設置してプロパティのmultilineをtrueにしておく
んでコンボボックスのイベントの下の方にちょい付け加えてこうする
Private Sub ComboBox3_DropButtonClick()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
TextBox1.Text = TextBox1.Text & Now & vbNewLine'←これ
End Sub
すると、combobox3でリスト開いた時だけじゃなくて、アイテム選択したときもイベントが発生していることがわかる
まぁなんでもいいんだけどこういうテストしてみる
TextBox1を設置してプロパティのmultilineをtrueにしておく
んでコンボボックスのイベントの下の方にちょい付け加えてこうする
Private Sub ComboBox3_DropButtonClick()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
TextBox1.Text = TextBox1.Text & Now & vbNewLine'←これ
End Sub
すると、combobox3でリスト開いた時だけじゃなくて、アイテム選択したときもイベントが発生していることがわかる
650デフォルトの名無しさん (ワッチョイ 7f01-/QDj)
2021/08/26(木) 01:06:07.22ID:3Wwx5xcw0 そもそもcombobox3は結果表示のコントロールだから、ここに余計なもの置くべきじゃないわ
Option Explicit
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Sub AddItemToComboBox3()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
End Sub
Option Explicit
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Sub AddItemToComboBox3()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月1日の1日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス3に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
End Sub
651デフォルトの名無しさん (ワッチョイ 7f01-/QDj)
2021/08/26(木) 01:06:23.79ID:3Wwx5xcw0 >>650続き
Private Sub ComboBox3_DropButtonClick()
'空にする
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "2021年"
ComboBox2.AddItem "8月"
End Sub
Private Sub ComboBox3_DropButtonClick()
'空にする
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "2021年"
ComboBox2.AddItem "8月"
End Sub
652デフォルトの名無しさん (ワッチョイ 7f01-/QDj)
2021/08/26(木) 01:08:23.20ID:3Wwx5xcw0 Option Explicitつけないのがはやりなんかね
宣言しねぇのがはやりなんかね
宣言しねぇのがはやりなんかね
653デフォルトの名無しさん (ラクッペペ MM4f-U159)
2021/08/26(木) 10:50:03.92ID:3EUdzNHVM 質問には必要だが
回答には不要
回答には不要
654デフォルトの名無しさん (ワッチョイ 7f28-T33Q)
2021/08/26(木) 14:29:16.05ID:/k4Lkr6/0 VBAのコードを書くウインドウが何かのタイミングで個別ウインドウ表示に切り替わり、バラバラになって元に戻らなくなってしまったのですが、
プロジェクト一覧などが左側にある初期状態に戻すにはどうすれば良いのでしょうか?
プロジェクト一覧などが左側にある初期状態に戻すにはどうすれば良いのでしょうか?
655デフォルトの名無しさん (JP 0Hc3-FcIJ)
2021/08/26(木) 14:59:17.57ID:2GwscEzmH >>654
KYCU\SOFTWARE\Microsoft\VBA\7.1\Common\Dockを削除
完全な初期状態だと使いにくいから、自分流にカスタマイズした後Common以下を保存しとくといい
KYCU\SOFTWARE\Microsoft\VBA\7.1\Common\Dockを削除
完全な初期状態だと使いにくいから、自分流にカスタマイズした後Common以下を保存しとくといい
656641 (ワッチョイ 1fcc-zH/y)
2021/08/26(木) 17:19:31.21ID:eaDIsBK00657デフォルトの名無しさん (ワッチョイ 7f28-T33Q)
2021/08/26(木) 19:24:12.66ID:/k4Lkr6/0 >>655
ありがとうございます!リセット機能が無いのですねぇ
ありがとうございます!リセット機能が無いのですねぇ
658デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 02:17:56.45ID:XzPbf7xa0 請求書つくってて1行ごとに仕切り線を挿れたいです
入力があるセルのセルの下に、オートシェイプ(0.75ptなどの線)を引くことはできませんか?
規定の線では太すぎて表がごちゃごちゃになってしまいます(細線では複数のプリンターでかすれて出ませんでした)
Excelでは線の種類が少ないので望みの書類をつくれない、力技でオートシェイプで引きたいけど手作業では大変
請求書データをコピペしてボタンおしたらオートシェイプの線がセルに沿ってしかれる、としたいです
入力があるセルのセルの下に、オートシェイプ(0.75ptなどの線)を引くことはできませんか?
規定の線では太すぎて表がごちゃごちゃになってしまいます(細線では複数のプリンターでかすれて出ませんでした)
Excelでは線の種類が少ないので望みの書類をつくれない、力技でオートシェイプで引きたいけど手作業では大変
請求書データをコピペしてボタンおしたらオートシェイプの線がセルに沿ってしかれる、としたいです
659デフォルトの名無しさん (スフッ Sd22-U7Lh)
2021/08/28(土) 02:53:29.63ID:K563/rxVd >>658
できます
できます
660デフォルトの名無しさん (ブーイモ MMf6-hkn+)
2021/08/28(土) 02:57:38.41ID:K97Q7PgmM 条件付き書式で罫線を引いて
線の太さは色をグレーにしてごまかす
VBA使わないなw
線の太さは色をグレーにしてごまかす
VBA使わないなw
661デフォルトの名無しさん (JP 0H4d-U7Lh)
2021/08/28(土) 03:20:48.79ID:k0s+jeSJH >>658
'何か入力済のセルにオートシェイプで下線を引く
Sub Macro1()
For Each c In ActiveSheet.UsedRange
If c.Text <> "" Then Call セルに下線(c.Row, c.Column)
Next
End Sub
Sub セルに下線(r, c)
x1 = Cells(1, c).Left
x2 = Cells(1, c + 1).Left
y1 = Cells(r + 1, 1).Top
y2 = y1
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2).Select
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(0, 0, 0) '黒
.Weight = 0.75 '太さpt
End With
End Sub
'何か入力済のセルにオートシェイプで下線を引く
Sub Macro1()
For Each c In ActiveSheet.UsedRange
If c.Text <> "" Then Call セルに下線(c.Row, c.Column)
Next
End Sub
Sub セルに下線(r, c)
x1 = Cells(1, c).Left
x2 = Cells(1, c + 1).Left
y1 = Cells(r + 1, 1).Top
y2 = y1
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2).Select
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(0, 0, 0) '黒
.Weight = 0.75 '太さpt
End With
End Sub
662デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 03:32:32.93ID:XzPbf7xa0663デフォルトの名無しさん (ワッチョイ 0201-cpbU)
2021/08/28(土) 03:44:32.68ID:3njcewBU0 Shape系って使うのはいいんだけど削除してもオブジェクトが残るバグってない?
以前苦しんだ記憶が
以前苦しんだ記憶が
664デフォルトの名無しさん (ブーイモ MMf6-U7Lh)
2021/08/28(土) 05:22:31.37ID:1cfI7qZ1M モノクロプリンタでもグレーぐらい印刷できるやろ
665デフォルトの名無しさん (ワッチョイ aeda-HBgv)
2021/08/28(土) 11:23:58.24ID:wL/wcpIq0 グレーはやめとけ
666デフォルトの名無しさん (ブーイモ MM4d-EMao)
2021/08/28(土) 11:34:50.96ID:O3Ip+Qo9M なんで?
667デフォルトの名無しさん (アウアウウー Sa85-0BKB)
2021/08/28(土) 12:05:27.22ID:ZUCCF//La 目がアーモンドになる
668デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 12:37:46.09ID:XzPbf7xa0 >>664
一般的ではないですよね
一般的ではないですよね
669デフォルトの名無しさん (ワッチョイ 298e-CEQY)
2021/08/28(土) 13:21:54.79ID:GacscTPG0 今時エクセルで請求書を作る会社って
670デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 13:26:28.47ID:XzPbf7xa0671デフォルトの名無しさん (ワッチョイ ae68-U7Lh)
2021/08/28(土) 13:29:02.28ID:Wn50/Mou0 今時〇〇ってとか言うアホはスルーでいいよ
672デフォルトの名無しさん (ワントンキン MM52-jtj7)
2021/08/28(土) 13:34:29.23ID:d2Jh3olLM673デフォルトの名無しさん (ブーイモ MMf6-EMao)
2021/08/28(土) 13:41:02.22ID:y1FEzj5CM と、馬鹿が申しております。
674デフォルトの名無しさん (スフッ Sd22-GwXH)
2021/08/28(土) 13:41:56.34ID:YRitmpAVd >>672
市販のあわないだろ
市販のあわないだろ
675デフォルトの名無しさん (ワッチョイ 4668-bRsM)
2021/08/28(土) 13:50:09.98ID:+T8TIHFV0 なんでそこで経理ソフトって出てこないんだろう・・・
676デフォルトの名無しさん (ワッチョイ ae68-U7Lh)
2021/08/28(土) 14:11:22.66ID:Wn50/Mou0677デフォルトの名無しさん (ワッチョイ 112f-q8ax)
2021/08/28(土) 14:15:33.19ID:OUVKMoF10 まあ間に合ってるってならエクセルでいいけど
シェイプで線引くような帳票が間に合ってるといえるのか
俺なら罫線で間に合わせるけどな
シェイプで線引くような帳票が間に合ってるといえるのか
俺なら罫線で間に合わせるけどな
678デフォルトの名無しさん (ワッチョイ 3d5f-jtj7)
2021/08/28(土) 14:39:40.62ID:nfIYqgR90 EXCEL帳票って多いよね
請求書に限らず
請求書に限らず
679デフォルトの名無しさん (スップ Sd22-U7Lh)
2021/08/28(土) 14:43:17.47ID:EKyvlYlFd うちみたいな零細は帳票の枚数も少ないしExcelに罫線で十分なんだワ
専用ソフトは従業員が2桁人数になってからだな
専用ソフトは従業員が2桁人数になってからだな
680デフォルトの名無しさん (ワッチョイ 4668-bRsM)
2021/08/28(土) 14:50:21.30ID:+T8TIHFV0 請求書の罫線にこだわるって何の意味があるんだろうと思う
681デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 16:39:25.21ID:XzPbf7xa0682デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 16:40:04.12ID:XzPbf7xa0 >>677
Excelで0.75とかひければ問題ないんですけどね
Excelで0.75とかひければ問題ないんですけどね
683デフォルトの名無しさん (テテンテンテン MM66-iMcn)
2021/08/28(土) 16:49:11.38ID:clAN9KQWM そもそも罫線レイアウトが旧時代的だよ
684デフォルトの名無しさん (ワッチョイ ae68-U7Lh)
2021/08/28(土) 17:01:08.85ID:Wn50/Mou0685デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 17:03:13.47ID:XzPbf7xa0686デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 17:04:05.90ID:XzPbf7xa0687デフォルトの名無しさん (テテンテンテン MM66-q9XR)
2021/08/28(土) 17:15:47.71ID:6AjG+XmcM そこまで帳票にこだわるならCrystal Reportsとか使えばいいのに
https://www.sap.com/japan/products/crystal-visual-studio.html
https://www.sap.com/japan/products/crystal-visual-studio.html
688デフォルトの名無しさん (ワッチョイ 024f-I0lI)
2021/08/28(土) 17:21:15.10ID:W6iJhC5F0689デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 17:23:01.48ID:XzPbf7xa0690デフォルトの名無しさん (ワッチョイ 024f-I0lI)
2021/08/28(土) 17:27:11.56ID:W6iJhC5F0691デフォルトの名無しさん (アウアウウー Sa85-U7Lh)
2021/08/28(土) 19:16:34.16ID:6UyriYnia VBA使って作るぐらいだから大げさなものではないと思うから正直なところ明細の罫線はなくてもかまわないのではと思う
罫線信仰については日本は細かいと思うわ
それなら偶数行の背景に薄いグレーの背景色をつけたほうがきれいに見えるかと
罫線信仰については日本は細かいと思うわ
それなら偶数行の背景に薄いグレーの背景色をつけたほうがきれいに見えるかと
692デフォルトの名無しさん (ワッチョイ 4563-iMcn)
2021/08/28(土) 19:21:46.63ID:P0+dXebs0 帳票とかでも罫線レイアウトしてるのはただ単に四角く収まってるだけで別に使いやすくともなんともないんだよな
項目の意味より見た目の収まりでレイアウトしてるから意味不明だし書き込むスペースが足りなかったりするし
項目の意味より見た目の収まりでレイアウトしてるから意味不明だし書き込むスペースが足りなかったりするし
693デフォルトの名無しさん (ワッチョイ 8605-GwXH)
2021/08/28(土) 19:22:16.12ID:XzPbf7xa0 >>691
モノクロレーザーだと濃淡でないのでスクリーントーンみたいになるんですよね
これみてたけど線があったりなかったり色付きだったり
なんか世界的な基準とかあるんですかね?
https://i.imgur.com/GQyzXam.jpg
モノクロレーザーだと濃淡でないのでスクリーントーンみたいになるんですよね
これみてたけど線があったりなかったり色付きだったり
なんか世界的な基準とかあるんですかね?
https://i.imgur.com/GQyzXam.jpg
694デフォルトの名無しさん (アウアウウー Sa85-U7Lh)
2021/08/28(土) 19:51:56.00ID:6UyriYnia どんなプリンタ使ってるか不明だけど印刷品質とかでモノクロレーザーでもそれなりな背景色つけられると思うから
プリンタ側の設定みなおしてみたほうがよいのでは
基準なんて別にないでしょ作り手(提供者)のセンスだけかと
プリンタ側の設定みなおしてみたほうがよいのでは
基準なんて別にないでしょ作り手(提供者)のセンスだけかと
695デフォルトの名無しさん (アウアウウー Sa85-HBgv)
2021/08/28(土) 20:04:28.62ID:qSiuLs4Ta 濃いグレーと薄いグレーがどう印刷されるかな
696デフォルトの名無しさん (JP 0H4d-U7Lh)
2021/08/28(土) 20:16:48.82ID:k0s+jeSJH Excelの設定でも解像度が指定できるしモノクロレーザーの設定でも濃度や網点の細かさぐらい変更できるのに
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- バリ島で男子生徒ら集団万引きか、防犯カメラ映像が拡散 京都の大谷中学・高校が「窃盗行為」謝罪★4 [七波羅探題★]
- 中国軍機レーダー照射、トランプ氏沈黙突く 試される日本外交 [蚤の市★]
- 【地震】青森県で震度6強 長周期地震動も 津波注意報すべて解除 ★7 [ぐれ★] [ぐれ★]
- トランプ大統領 エヌビディア製AI半導体の中国輸出許可 安全保障重視の方針転換 [蚤の市★]
- 【広島】「万引きした人を追跡」コンビニ店員の男性(46)を果物ナイフで刺したか 中国籍の少年(17)を殺人未遂容疑で現行犯逮捕 [ぐれ★]
- 【サッカー】58歳カズ「オファーが来ている」 J3福島と近日中にも交渉 早ければ年内にも決断 [征夷大将軍★]
- 気象庁・高市内閣「この後311級の地震の可能性があります。北海道〜関東の人は1週間は地震が来てもすぐ逃げられる格好をしてください」 [597533159]
- 【動画】ファッションモデルまんこ、裸でランウェイを歩く。これがファッションだと言われて [749674962]
- 【悲報】高市早苗の擬人化がXで大バズりwwwwwwwwwwww [455031798]
- バリ島で万引きした高校生が叩かれているけどさ
- 早大名誉教授「高市内閣の高支持率はデータ操作か、支持している日本人がアホなのか」👈核心を突いてしまう [868050967]
- こんぺこ!こんぺこ!こんぺこ!🐰🏡
