Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

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

2023/09/11(月) 20:38:20.27

PCからなら
JaneStyle 4.23の延命スレ参考に、ごにょごょしてとか、
ギコナビなら人柱版ﾊﾞﾀ72(1.72.0.866)とか
色々

2023/09/11(月) 21:03:05.00

何このロボットみたいな文章

2023/09/11(月) 22:14:37.37

なぜ触るのか
承認欲求モンスター大喜びじゃねーか

2023/09/12(火) 01:01:45.73

>>765
『にやにや』が止まりませ～ん♪

2023/09/12(火) 20:29:10.94

普通におじさん構文で怖いわ

2023/09/13(水) 06:41:05.98

5chはおじさんの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2023/09/13(水) 06:41:58.87

【質問】
作ってみた。どや？
https://i.imgur.com/iPS3M3e.png

2023/09/13(水) 11:24:28.95

セルベーダーは感動、感心したわ、色んな意味で

2023/09/13(水) 11:27:55.23

ああいうのは一番最初にやったやつだけが面白い

2023/09/13(水) 18:14:01.15

職業訓練校通いのおじさんが自慢するスレ

2023/09/13(水) 18:35:10.29

>>772
世の中、金持ってる方が上なんやで（笑）
https://i.imgur.com/5XjGLng.jpg
https://i.imgur.com/l6AvarI.jpg

2023/09/13(水) 19:03:14.69

非モテをこじらせたまま老いるとこーなるのかぬ　参考になるぬ

2023/09/13(水) 20:39:45.93

いつも気になってたから聞いてみるわ
何でお前みたいなヤバいやつって揃いも揃ってロボットみたいな口調なの？

2023/09/13(水) 21:01:18.08

>>773
普通の人は職業訓練校なんて行かんよ

2023/09/13(水) 23:36:51.13

>>776
偏差値判るよな

2023/09/14(木) 02:45:37.99

職業訓練校通いの無職男性の年寄りがドヤ顔
こいつ例の零細企業勤めの爺だろ

2023/09/14(木) 07:05:27.33

お前ら勘違いしてるぞ！　俺のスペックを紹介するよ。
親父が高卒の元公務員（警察官）で、
我が家は世帯の金融資産が１億円を超える『富裕層』なんよ。
日本には富裕層がわずか2.7％しか居ない。
だから、生活のために働く必要なんてないんだわ。
しかし、無職の頃モンハンにハマってたら親父に殴られた。
仕方なくラクなバイト（工場の守衛室）週２回夜間だけ働いてるわ。
遺伝子のおかげで格闘技は強いんだが、脳ミソまで筋肉やがな（笑）
プログラミングは『金持ちの道楽』
ExcelVBAは、おもに株のデータ分析に活用してる。
お前らもスペック書いてよ！

2023/09/14(木) 07:27:55.14

職業訓練校は去年の話や。
IT系コースで ExcelVBAとACCESSを習った。
授業のペースが早くて理解できず、ほとんど身に付かなかったわ。
グループワークで 20代後半の女性と話すのも新鮮だったわ。
就職の為ではなく『失業手当の延長』が最大の目的だ。
去年は失業手当の総額が 100万円を超えてた。
実は、職業訓練校に通ったのは去年が４回目。

2023/09/14(木) 15:20:19.42

そんトキ付いていけてなくても　あとでもらった資料を見返すと　案外すんなり理解が進んだりするぬ

2023/09/14(木) 15:56:44.63

職業訓練校の授業にもついていけなかった無職の子供部屋おじさんがいきりはじめました

2023/09/14(木) 16:17:39.82

訓練校の学習ペース速いんだよね。
初学者が躓くと挫折する。

2023/09/14(木) 16:23:06.62

プログラミングは義務教育だし初学者は無視だろ

2023/09/14(木) 17:00:40.65

このスレで職業訓練校というパワーワードが出るとは
もうVBA以前の問題でフォークリフトの技能講習とか取った方がいいんじゃねーの

2023/09/14(木) 17:29:04.17

無職子供部屋おじさん

もろに英一郎案件

2023/09/14(木) 18:38:58.30

電気工事士かボイラー技師の方が良くない？

2023/09/14(木) 19:59:51.79

お前ら、何の資格とったの？
https://i.imgur.com/HJOwP64.jpg
https://i.imgur.com/FnuM1zX.jpg

2023/09/14(木) 20:59:03.34

世の中から認められてない、
必要とされてないコトは理解できてるんだな
かわいそうに

2023/09/14(木) 22:22:45.67

（定年）退職したら ExcelVBAとACCESSコース受けるわ
寝てても理解できるし金もらえるとか美味しすぎる
（あ、前職バレるん？土方と言えばオケ？）

2023/09/15(金) 02:10:41.32

定年後って失業手当もらえるの？

2023/09/15(金) 10:52:25.67

おまいらの払った税金がこんなのに使われてるんだぜ

2023/09/15(金) 13:10:13.06

嫌なら出ていってもいいんだぞ

2023/09/15(金) 14:52:58.58

>>793
これな
https://www.youtube.com/watch?v=l065M7DJtB8
https://www.youtube.com/watch?v=YTNptpYmcFk
https://www.youtube.com/watch?v=OAyCzIQHkts

2023/09/15(金) 15:10:56.61

雑談スレ

2023/09/15(金) 15:51:18.79

https://i.imgur.com/bFs1lNP.jpg
https://i.imgur.com/OSR12Zv.jpg
現引きしたから減ったように見える。
でも、翌朝５時に口座残高は正常に戻る。

2023/09/15(金) 18:57:24.40

かまってくれる人いんのんやな

2023/09/15(金) 19:32:05.53

そこで、Whisperと連携して、成り行きで全株式売り！
とかすればかっこいいのぅ

2023/09/15(金) 20:48:39.15

触らずにはいられない病
荒らしの相手する奴も荒らしとはよく言ったもので

2023/09/16(土) 18:50:25.00

https://i.imgur.com/m5W5Liq.jpg
https://i.imgur.com/9uzNLaN.jpg
https://i.imgur.com/cFKrV8c.jpg
https://i.imgur.com/LefrET9.jpg
お前ら、３連休を楽しんでるか？

2023/09/17(日) 12:55:17.44

職業訓練でVBAコースとかレアだと思う。
自分の地域はビジネスコースか医療事務か介護コースしかない

2023/09/18(月) 10:43:43.03

l_i_t_e(邪魔という方は左記をNGお願いします)

更に家族にも教えて追加で￥4000をゲットできる！
https://i.imgur.com/JnCgXpC.jpg

2023/09/18(月) 12:24:57.59

>>802
絶対に試すべきだね。

2023/09/20(水) 11:06:33.59

宣伝かよ削除依頼出した方がいいのかな？

2023/09/20(水) 11:48:24.12

その方が良い

2023/09/21(木) 00:44:13.32

削除依頼って機能してるの？って疑問が

2023/09/21(木) 00:51:02.36

荒らしが多すぎてほとんど機能してない
依頼が100あっても実際に削除されるのは数個

2023/09/23(土) 08:13:34.89

他スレのこれに関しては削除依頼機能してるね

2023/09/23(土) 19:06:36.67

昔は削除人がすぐ動いてくれた気がする

2023/09/23(土) 21:22:49.47

悪ノリで真似してるやつも多いんだろ、しらんけど

2023/09/25(月) 14:49:00.33

Excelスレ、マクロスレともにだんだん過疎ってきてるのはネタが尽きたからかな？
それともExcel自体オワコンだから？

2023/09/25(月) 15:21:12.63

最近5chの規制が厳しくなって、かなり書き込みがやりにくくなった
類似の掲示板がいくつもできて互いに潰し合いをしてて、人が分散した

2023/09/25(月) 17:48:13.18

そうなんだ。道理で寂しくなった訳だ。一週間以上書き込みなしとかザラ

2023/09/25(月) 19:51:38.65

書き込み規制が一番影響大きかった気がする

2023/09/25(月) 20:14:28.69

LINE掲示板への誘導もかなりひどいことになってるし

2023/09/26(火) 02:09:19.73

月イチで書き込み規制食らう。もう5ちゃんは終わりかも。

2023/09/26(火) 10:29:35.57

今VBAの質問したい場合はどこに書くのがベスト？
qiitaは鼻で笑われそう
知恵袋が年齢層とマッチしてるかな

2023/09/26(火) 12:02:20.02

まずはここに書いてみ？

2023/09/26(火) 12:49:35.87

知恵袋も下火っぽいよ。

2023/09/26(火) 12:58:35.95

copilotに聞けばいいよ

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-WMZf) · 2023/09/26(火) 13:21:45.27

copilotは知恵袋より信頼できると思う

2023/09/26(火) 18:13:51.85

ms純正だから信頼できるよね

2023/09/26(火) 18:28:27.80

MS製だから信用できんのだろうが

2023/09/26(火) 19:32:53.14

copilotってVBEでも使えるの？
他言語だがVSCodeでは使ってる
あれ凄いよね、もはや上手いコメント書いたら殆どコーディングしてくれる
体験版終わったら脳死で課金した

2023/09/26(火) 20:10:45.32

>>824
基本的なことがわからない探せないお前みたいな低次元の無能な人が重宝するだけ

2023/09/26(火) 20:47:48.58

まぁちょっとでもコーディング楽したいからカネ払うってのはアリカモとわ思いましたケドぬ

2023/09/27(水) 08:16:47.55

これ以上カネ払いたくない

2023/09/27(水) 11:24:21.36

俺はこんな情報すら知らない『情弱』だったわ。
https://sogyotecho.jp/microsoft-365-copilot/

2023/09/28(木) 22:12:51.19

Redimって途中からの指定は無理なのか？
Redim Arry(1 to Ubound (Arry) , 5 to 10)みたいな感じにしたいんだが

2023/09/28(木) 23:04:37.28

無理

2023/09/29(金) 01:59:31.59

>>829
途中ってどういう意味だ?

Sub test()
Dim Arry()
ReDim Arry(5, 10)
ReDim Arry(1 To UBound(Arry), 5 To 10)
End Sub

とくにエラーはでないが？

2023/09/29(金) 06:16:54.23

>>831
分かりにくくてすまん
Redim Arry(1 to Ubound (Arry) , 5 to 10)と書いてもエラーは出ないけど実際二次元側の配列に格納されるの1～6の値になるってこと

2023/09/30(土) 00:04:10.69

>>832
ますます意味がわからん
ReDimした段階で中身は空なんだが？

2023/09/30(土) 10:41:38.51

>>832
う～ん、言っている内容がわからない。画面キャプチャして貼ってみて。
https://i.imgur.com/LPlz6iE.jpg

2023/09/30(土) 12:02:57.08

値なのか添字なのかハッキリしてくれ

2023/09/30(土) 19:39:00.90

度々すいません

Sub test()

Dim Arry()

Arry = Sheet1.Range(“A1”).CurrentRegion.Value

Redim Arry(1 to Ubound (Arry) , 5 to 10)

End Sub

これで二次元側の値をArryの5～10の値を格納したいけど1～6の値がはいります

そもそも無理なんでしょうか？

2023/09/30(土) 19:44:55.14

Preserve書き忘れてましたけど実際は書いてます

2023/09/30(土) 20:30:52.83

こいつずっと日本語おかしいけど
なんなの？w

2023/09/30(土) 21:43:15.63

>>836
何をやりたいのか書いた方がいいかも。
見た感じ、Redimの使い方を間違ってる、機能を誤解している印象。

2023/09/30(土) 21:52:52.81

>>836
>>834

2023/10/01(日) 08:29:59.20

Redimは配列の要素数を変更するもの。元々の添字が1～10でRedimで5 to 10としたら要素数を6に変更し添字が5から始まるようになるだけ。 Preserveを使っているなら元の値の頭から変更後の要素数分だけ持ってくる。

てか、この後どう使っているか知らないけどRedimする必要ある？
配列から値を読み出す時に添字をいじればいいんじゃない？

c = 4 ‘今回の使い方だと-4?
d = arry(a, b + c)

2023/10/01(日) 14:22:43.95

素人質問で申し訳ありません。
VBAをコピーしつつ組んだのですが下記がエラーが出てしまいます。
ご教示いただけますと幸いです。
A行(A1：A100)をダブルクリックするとA行に１加算され、
B行(B1：B100)をダブルクリックすると、B行には年月日が、C行には時間が記載される。
D行(D1：D100)をダブルクリックすると、D行には時間が記載される。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Target.Value = Target.Value + 1
If Not IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("B1:B100,D1:D100")) Is Nothing Then Exit Sub
If Target.Column = 2 Then
Target.Value = Date
Target.Offset(, 1).Value = Time
ElseIf Target.Column = 3 Then
Target.Value = Time
ElseIf Target.Column = 4 Then
Target.Value = Time
End If
Cancel = True
Cancel = True
End Sub

2023/10/01(日) 16:06:27.86

どんなときにどんなエラーが出るか（どのコードでエラーがでるかなど）ぐらい書いたほうがいいんじゃね
素人でもそれぐらいはできるでしょ

**842** (ﾜｯﾁｮｲ 0502-UA51) · 2023/10/01(日) 17:20:06.14

>>843
すみません。エラーが出るというより、Ａ行とD行しか反応しません。

2023/10/02(月) 03:50:19.29

>>842
とりあえずこれで動くけど、何か説明が抜けてない？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Intersect(Target, Range("A1:A100,B1:B100,D1:D100")) Is Nothing Then Exit Sub
　　If Target.Column = 1 Then　'A列
　　　　Target.Value = Target.Value + 1
　　ElseIf Target.Column = 2 Then　'B列
　　　　Target.Value = Date
　　　　Target.Offset(, 1).Value = Time
　　ElseIf Target.Column = 4 Then　'D列
　　　　Target.Value = Time
　　End If
　　Cancel = True
End Sub

**842** (ﾜｯﾁｮｲ 756f-4zuU) · 2023/10/02(月) 08:22:38.98

>>845
ありがとうございます。
やってみます。
説明できる限りのことは書いたのですが
要領を得なかったら申し訳ありません。

2023/10/02(月) 09:11:09.89

>>846
自分の書いてる説明には
If Not IsEmpty(Target) Then Exit Sub
これに相当することが書かれてないけど必要なの？
これがあるとB列とD列は一度設定されると以降の処理が動作しないよね（未設定の時だけ設定される動作）
（そういう点では>>845のコードは説明に合わせたコード）
あと
ElseIf Target.Column = 3 Then
Target.Value = Time
これは自分の説明にはない動作だよね（「C列をダブルクリックしたら時間を設定」だけど実際にはIntersectの範囲に含まれないから動作しない）

2023/10/02(月) 12:25:48.10

>>反応しません
ってので見てるとこがね…

2023/10/02(月) 12:26:02.80

>>反応しません
ってので見てるとこがね…

2023/10/11(水) 12:18:31.21

vbaを含むxlsmファイルのライセンスってどこに含めるのが一般的ですか？

2023/10/11(水) 12:24:39.89

つくったとこじゃね

2023/10/15(日) 13:46:37.05

VBA使えなくなるんですか？？？
https://gigazine.net/news/20231012-microsot-kill-off-vbscript/

2023/10/15(日) 13:55:09.75

YES

2023/10/15(日) 14:15:54.32

>>852
馬鹿

2023/10/15(日) 14:24:09.38

VBSとVBAは別物なのでまだ当面使えなくなることはないだろうけどそろそろ別の手段を考え始めた方が良さげな感じではある

2023/10/15(日) 15:28:22.49

セキュリティリスクだからVBA使うなって会社もそろそろ増えてきてるだろうしな

2023/10/15(日) 17:42:26.62

excelが悪い

2023/10/16(月) 09:17:56.44

もう今はExcelとVBAではなくモダンExcelとPowerPlatformの時代

2023/10/16(月) 09:59:53.14

>>856
同じ理由ならpowershellも廃止すべきでは

2023/10/17(火) 07:51:58.43

自分が使わなければいいだけでしょ

2023/10/18(水) 10:45:13.63

なんでやねん、説明して

2023/10/18(水) 11:05:14.43

>>861
スレチなので当該スレでやって

2023/10/19(木) 20:33:49.11

ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？