Excel VBA 質問スレ Part81

**デフォルトの名無しさん** · 2024/04/18(木) 14:03:38.03

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

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

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
Excel VBA 質問スレ Part80
https://mevius.5ch.net/test/read.cgi/tech/1685489018/

**デフォルトの名無しさん** · 2024/11/26(火) 10:03:25.21

せいかい　エディター
まちがい　工デT夕一

警備員[Lv.1][新芽] · 2024/11/26(火) 13:09:04.88

せいかい　エディター
まちがい　工〒゛T夕ー

**デフォルトの名無しさん** · 2024/11/27(水) 08:56:23.39

そこまで崩していいんなら濁点も:にして、イはTよりλのが近くないか

警備員[Lv.4][新芽] · 2024/11/27(水) 09:12:47.55

いや、一気にやったら続かないじゃない

**デフォルトの名無しさん** · 2024/11/27(水) 12:57:25.11

Dim rg1, rg2 as Range
rg1 = Cells(1, 1) ' 2024-12-31
rg2 = Cells(2, 1) '(空欄)
rg2.value = rg1.value
このようにA1の"2014-12-31"をA2にコピーしようとすると、
A2のセルの値が45657になってしまいます
値そのままA2にコピーする方法をご教示いただきたくおもいます
よろしくお願いします

**デフォルトの名無しさん** · 2024/11/27(水) 13:52:55.91

セルの値をそのままコピーするためには、コピー先のセルの数値形式を日付に設定する必要があります。以下のコードで、A1の値をA2にそのままコピーできます。

vba
Dim rg1 As Range, rg2 As Range
Set rg1 = Cells(1, 1) ' 2024-12-31
Set rg2 = Cells(2, 1) '(空欄)
rg2.Value = rg1.Value
rg2.NumberFormat = rg1.NumberFormat ' 数値形式をコピー

**デフォルトの名無しさん** · 2024/11/27(水) 16:51:15.01

>>838
すみません、言葉足らずでした
A1には文字列がはいっており、
場合によっては日付のようにも見えますが、
日付ではないので、値は"2024-12-32"なども取り得ます
他から取得するデータなので、この文字列はどうしようもありません
この値を、VBAを用いて他のセルにコピーすると、
文字列なのに日付と解釈され、日時型の値としてコピーされてしまいます
これを防ぎたいというのが趣旨です

**デフォルトの名無しさん** · 2024/11/27(水) 18:21:30.61

>>839
値を文字列変数に取得
値の設定先セルの書式を文字列に
変数値を設定先に代入
とやりたいことそのまま書く

**デフォルトの名無しさん** · 2024/11/27(水) 18:35:22.56

了解しました。それでは、A1の文字列が日付として解釈されないように、文字列としてコピーする方法をお教えします。以下のVBAコードを試してみてください。

vba
Dim rg1 As Range, rg2 As Range
Set rg1 = Cells(1, 1) ' "2024-12-32" などの文字列
Set rg2 = Cells(2, 1) ' コピー先のセル
rg2.Value = "'" & rg1.Value ' 値を文字列としてコピー

このコードでは、`rg1.Value`の前にシングルクオート（'）を追加して、値を強制的に文字列としてコピーしています。これにより、A2セルにコピーした値が日付として解釈されるのを防ぐことができます。

**デフォルトの名無しさん** · 2024/11/28(木) 18:36:22.65

.Value(デフォルトプロパティ)じゃなくて、.Textをコピーすればいいんじゃね

**デフォルトの名無しさん** · 2024/11/29(金) 02:09:38.98

↓ これっともっとすっきり書けない？　

If hoge > 75 Then
　 '処理1
Else
　If hoge > 50 Then
　　'処理2
　Else
　　If hoge > 25 Then
　　　'処理3
　　Else
　　　'処理4
　　End If
　End If
End If

警備員[Lv.22] · 2024/11/29(金) 02:36:57.16

すっきりじゃないかもしれないけど。
比較する条件がhogeだけならCase isでもいいと思う。select caseで調べてみて。

Select Case true
Case hoge>75
処理1
Case hoge>50
処理2
Case hoge>25
処理3
Case else
処理4
End Select

**デフォルトの名無しさん** · 2024/11/29(金) 03:40:38.72

>>843
抽象的な質問には無難な回答しかできない
Else と If をくっつければ End If が1回で済む
「処理」は Sub に飛ばして判定ロジックと分けると読みやすくなる

If hoge > 75 Then
　　Call 処理1
ElseIf hoge > 50 Then
　　Call 処理2
ElseIf hoge > 25 Then
　　Call 処理3
Else
　　Call 処理4
End If

**デフォルトの名無しさん** · 2024/11/29(金) 04:47:37.78

すっきり書けるかどうかは状況によるなあ
たとえばhogeが整数型で100点満点のテストの点数だったら、こういう書き方もできる

Select Case hoge
　　Case 0 To 25
　　　　処理1
　　Case 26 To 50
　　　　処理2
　　Case 51 To 75
　　　　処理3
　　Case 76 To 100
　　　　処理4
End Select

**デフォルトの名無しさん** · 2024/11/29(金) 07:48:42.48

>>840-842
ダメでした
しかも詳細を書こうとするともう余所エラーが出ます

**デフォルトの名無しさん** · 2024/11/29(金) 13:07:52.33

文字列型変数の値は"2024-12-31"でも、
Range型のValueプロパティに代入すると勝手にシリアル値が代入される
フォーマットもGeneralからyyyy/m/dに変わる

**デフォルトの名無しさん** · 2024/11/29(金) 13:08:16.00

代入元が"2024-12-32"の時は、代入先のセルも同値が入る

**デフォルトの名無しさん** · 2024/11/29(金) 13:08:48.76

"'2024-12-31"をセルに代入し、
MID関数で"'"を取りのぞいても、やはりシリアル値になる
簡単にできると思っていたことが難しいです…

**デフォルトの名無しさん** · 2024/11/29(金) 13:11:46.28

レス分けたら詳細書けました
クリップボード経由してPasteSpecialメソッドを用いると、
テキストとしての"2024-12-31"もセルに入れることができる
Excelの仕様の問題のような気がしてきました

**デフォルトの名無しさん** · 2024/11/29(金) 18:10:43.05

先にセルの書式を文字列 @ にしてみては？

**デフォルトの名無しさん** · 2024/11/29(金) 18:36:49.21

>>852
うまくいきました！
>>840のアドバイスを試す際、
コード内に@と明示せずGeneralにして試したのも間違いでした
お二人とも本当にありがとうございました！

**デフォルトの名無しさん** · 2024/11/29(金) 21:22:22.42

>>844

苔で出来ました。

**デフォルトの名無しさん** · 2024/11/29(金) 22:54:45.08

a=(hoge>75)*100+(hoge>50)*10+(hoge>25)*1
on log10(a)-1 goto 処理3,処理2,処理1

こういうイメージは嫌われるんですかね。

**デフォルトの名無しさん** · 2024/11/29(金) 23:05:46.40

>>853
うまくいってよかった
＠予め指定するのが肝でしたから
今回は文字列固定でのコピーでしたけど、他の書式も混在になることが予想されるならコピー元の書式をコピー先に設定するようにしといてもいいかもしれません

**デフォルトの名無しさん** · 2024/11/30(土) 09:08:08.19

Int(hoge / 25)

**デフォルトの名無しさん** · 2024/12/05(木) 11:53:46.88

甲斐はいらん。巨人に来るな。

**デフォルトの名無しさん** · 2024/12/07(土) 11:24:04.60

私が作ったVBAがうまく動かないんですがどこにバグがありますか？ご教示おねがいします

**デフォルトの名無しさん** · 2024/12/07(土) 14:05:32.60

知能にバグ

**デフォルトの名無しさん** · 2024/12/07(土) 14:45:24.46

知恵袋より酷い質問だな

**デフォルトの名無しさん** · 2024/12/07(土) 17:34:43.76

だな

**デフォルトの名無しさん** · 2024/12/07(土) 18:08:11.98

>>859
あなたが低脳猿なところに問題がある。

**デフォルトの名無しさん** · 2024/12/07(土) 23:19:44.56

RubyのようにVBAを作った？

**デフォルトの名無しさん** · 2024/12/09(月) 11:28:04.58

知恵袋もそうだが、まずはソースコードを見せてもらわないと話にならん事が分からんのか？

**デフォルトの名無しさん** · 2024/12/09(月) 12:17:07.04

ネタにマジレスという愚かな事が分からんのか？

**デフォルトの名無しさん** · 2024/12/09(月) 13:00:32.05

バグバグで抜いた

**デフォルトの名無しさん** · 2024/12/10(火) 01:01:19.96

COM考えたやつってもしかして天才なんです？
20年以上前のシステムがいまだに第一線で原液だとか

**デフォルトの名無しさん** · 2024/12/10(火) 13:23:10.76

>>868
COMファイルはMS-DOS時代の産物

**デフォルトの名無しさん** · 2024/12/10(火) 13:45:36.94

>>868
バイナリレベルのオブジェクト指向、インターフェース指向は素晴らしかったと思うよ

**デフォルトの名無しさん** · 2024/12/10(火) 15:02:21.25

>>869
メモリにそのまま展開される危険なファイル

**デフォルトの名無しさん** · 2024/12/10(火) 17:16:10.86

逆に移行を妨げてるんだろね、現行システムからの反発激しくて

**デフォルトの名無しさん** · 2024/12/11(水) 01:28:47.06

「反発激」という用語なのかと思った

**デフォルトの名無しさん** · 2024/12/21(土) 09:32:36.56

画像サイズが変わってしまい困っています。
メモの編集→コメントの書式設定→色と線タブ→塗りつぶし効果で画像を挿入しています。
サイズタブ→原型のサイズ→リセットを行うにはどうしたら良いでしょうか？

**デフォルトの名無しさん** · 2024/12/21(土) 10:48:06.83

>>868
昔の人は明らかに頭が良かった

>>872
遺構を妨げてるんじゃなくて以降がスムースに逝ってる証拠だよ

**デフォルトの名無しさん** · 2024/12/21(土) 11:27:23.27

>>874
それはVBAの話しなのか？

**デフォルトの名無しさん** · 2024/12/21(土) 13:33:30.79

>>874
画像のサイズが変わってしまった場合、元のサイズにリセットする方法についてお答えします。

1. **メモの編集**モードに入ります。
2. **コメントの書式設定**を開きます。
3. **色と線タブ**を選択します。
4. **塗りつぶし効果**で画像を挿入します。
5. **サイズタブ**を開きます。

ここで、以下の手順を試してみてください：

- **リセットボタン**がある場合、それをクリックして元のサイズに戻します。
- リセットボタンがない場合、手動で**元のサイズ**に調整する必要があります。挿入した画像の元の幅と高さの値を入力します。

これにより、画像のサイズが元に戻るはずです。もし他にもお困りの点があれば、教えてください。

**デフォルトの名無しさん** · 2024/12/21(土) 15:52:44.31

マクロでわからないことがあったらCHatGPT に聞くようになった。
すごいのは、やりたいことを書いてEXCELファイルを添付すると、マクロを組んでくれること。
問題はCHatGPT 頼りになるので、自分のスキルが向上しないことw

**デフォルトの名無しさん** · 2024/12/21(土) 16:31:15.48

>>876
>>877
上記の動作をVBAで行う方法が知りたいです
LockAspectRatio、TextFrame.AutoSize等を試しましたがうまくいきませんでした
マクロ記録もやってみましたがリセットの動作は記録されないようです
メモ内の埋め込み画像の元サイズを取得する方法ってありますか？

**デフォルトの名無しさん** · 2024/12/21(土) 21:28:57.26

自己解決しました

**デフォルトの名無しさん** · 2024/12/22(日) 16:36:05.08

昔の人ってすげぇスキル高いと思うわ。ネットや書籍が無い時代に手探りで立派なソースコード書いていたと思うとな

**デフォルトの名無しさん** · 2024/12/22(日) 16:52:27.65

Sendkeysが上手く動いてくれない。。
DoEventsも入れているのに。。

**デフォルトの名無しさん** · 2024/12/22(日) 17:09:07.17

>>882
Sendkeysは最後の手段
できるだけ使うな

**デフォルトの名無しさん** · 2024/12/22(日) 17:51:48.04

windows apiのsendkeyをdeclareして使う方が良いとか

**デフォルトの名無しさん** · 2024/12/22(日) 18:04:03.23

対象が何なのかで切り分けが必要だよ
SendInputが確実な場合もある

**デフォルトの名無しさん** · 2024/12/22(日) 18:11:28.97

やりたいことは「このエクセルファイルのこのシート上で方向キー↓を押しなさい」とマクロの定義をエクセルシート上に書いておくと、その定義どおりに動いてくれるマクロを作りたいだけなんだけどな。。

**デフォルトの名無しさん** · 2024/12/22(日) 21:26:34.16

ファイルを開いた瞬間に開始してるからシートのほうが準備できてないとかなんじゃね
知らんけど

**デフォルトの名無しさん** · 2024/12/22(日) 23:01:29.25

range("A1").select
sendkeys "{DOWN}"
でA2になるぞ
操作したいもの（例えばシート）がアクティブになってないんじゃないかと

**デフォルトの名無しさん** · 2024/12/25(水) 15:25:06.92

sendekysはpopup出てると死ねる

**デフォルトの名無しさん** · 2024/12/28(土) 00:58:35.34

そういうのは、VBAからVBSを起動して、そっちにクリッコさせるんだぜ

**デフォルトの名無しさん** · 2025/01/03(金) 18:15:22.43

変数名に漢字を使うのってどう？
使えるかもしれないけど気持ち悪いと感じる

**デフォルトの名無しさん** · 2025/01/03(金) 18:23:18.68

専門用語とか漢字の利点を感じられるなら

**デフォルトの名無しさん** · 2025/01/03(金) 18:25:04.66

業務用語は下手に英語とかローマ字にせず業務用語そのままの漢字変数
ただ頭にアルファベットの接頭辞つける

**デフォルトの名無しさん** · 2025/01/03(金) 18:45:00.49

変数に限らず、定義名やクエリー名、シート名を日本語にしておくと、
なぜかWindowsのupdateの機会でもおかしくなるときがあって、
それ以来、アルファベット表記に変えてしまった。

**デフォルトの名無しさん** · 2025/01/03(金) 18:45:23.61

Unicodeのせいかしら？

**デフォルトの名無しさん** · 2025/01/03(金) 20:26:13.30

趣味でしてるし日本語も使う

**デフォルトの名無しさん** · 2025/01/03(金) 22:04:30.99

>>893
接頭辞は型名?

**デフォルトの名無しさん** · 2025/01/03(金) 22:07:46.64

フォームを作るときオブジェクト名をそのまま使うか変更するのか悩む
後からオブジェクト名を変えるのは避けたほうがいいのはわかる

**デフォルトの名無しさん** · 2025/01/04(土) 16:29:41.54

自治体とか業務に使うの書いてると、その用語使わないとやってられない
可読性が段違い
なのでそれ以外でももちろん漢字も使う
i とかはもちろん別だ

**デフォルトの名無しさん** · 2025/01/04(土) 16:50:34.89

漢字使おうかな
使えるものは使っておけと思い始めた

**デフォルトの名無しさん** · 2025/01/04(土) 17:12:28.42

>>897
colとか適当だけどCTRLspaceのオートコンプリートで候補探すとき便利

**デフォルトの名無しさん** · 2025/01/04(土) 17:43:19.80

漢字は漢字で弊害があったような
昔それでやっぱ変な事はやめとこってなった

**デフォルトの名無しさん** · 2025/01/04(土) 21:06:46.91

>>901
CTRLspaceのオートコンプリート初めて知った
あざす

**デフォルトの名無しさん** · 2025/01/05(日) 09:58:57.13

半角でも「0」「O」「1」「l」みたいなことが漢字でも起きるからな

**デフォルトの名無しさん** · 2025/01/05(日) 10:52:44.56

名前は文字コードで一意を確保してるだろうから
観掛けが同じでも違うコードなら違う変数やオブジェクトと看做される
百害有って一利無し

**デフォルトの名無しさん** · 2025/01/05(日) 14:47:02.49

VBA漢字変数問題は決着つかないみたいね
他にもVBAで論争ってある？

警備員[Lv.1][新芽] · 2025/01/05(日) 15:11:29.01

論争はないかもしれないけど、英字の大文字と小文字を同一視するのが堪らなくイヤ
Enumで宣言したときは大文字始まりで、ローカル変数は小文字始まりにしたいときなど、同じ名前だとどちらかに寄ってしまうのがイヤ

(以下うろ覚え)
あと、Enumで宣言した識別子をタイプするとき、宣言した大文字・小文字の列(パスカルやキャメル)にならないのがイヤ
その他はたとえすべて小文字でタイプしても宣言のとおりに大文字・小文字に統一されるのに

警備員[Lv.1][新芽] · 2025/01/05(日) 15:17:04.83

Enumのときだけ、メンバをタイプすると、タイプした側に寄せて宣言側が変わってしまうような

Typeのメンバや他の変数宣言では、使用時にどうタイプしても宣言したとおりの大文字・小文字の列になる
(以上うろ覚え)

**デフォルトの名無しさん** · 2025/01/05(日) 16:23:41.91

従うことが推奨するレベルのコーディング規約などあればうれしいと思って調べてみた
最近は結構盛り上がっているとの記事を見つけた
素人としては助かるとおもった

**デフォルトの名無しさん** · 2025/01/05(日) 17:44:25.49

そんなもん丸ごとAIに投げてレビューさせりゃいいよ
VBA使い同士よりも遥かに有用なアドバイスをくれる
まあ基本的にVBAでは人間のリテラシーもコードに求められる品質も低いので、一般的なプログラミング作法の視点でAIにまともに指摘させると
逆に一般的なVBA使いのレベルでは扱いにくいようなコードを推奨してくるから、ちょっとレベルを下げるようにプロンプトを工夫する必要はあるが

**デフォルトの名無しさん** · 2025/01/05(日) 18:08:41.24

OK/NGの結果を○×で判断しようとしてオーと丸、バツとエックスが混在したり
海外のテストで正解をㇾ点、不正解に○　が書かれるとか
PSのボタンで×が決定、○がキャンセルみたいなことが起きるのが世の中

**デフォルトの名無しさん** · 2025/01/05(日) 19:12:09.31

>>911
○〇

**デフォルトの名無しさん** · 2025/01/05(日) 19:13:51.36

>>911
PS5は世界の主流派に合わせただけ
PS4までは日本人仕様をゴリ押ししていた

**デフォルトの名無しさん** · 2025/01/05(日) 19:14:56.59

「プレイステーション」、「ウォークマン」という変な英語も許容してくれたアメリカ合衆国に感謝しろよ。

**デフォルトの名無しさん** · 2025/01/05(日) 19:25:49.40

>>913
世界でも×は決定じゃないし〇も間違いじゃない
レ点と×は区別され使われてる
×が決定って文化のソースを出してくれ

**デフォルトの名無しさん** · 2025/01/05(日) 19:27:19.60

>>914
商品名に変な英語もクソもあるかよ

**デフォルトの名無しさん** · 2025/01/05(日) 20:35:02.16

MACの✕○
Winの○✕
MSの意地だね

**デフォルトの名無しさん** · 2025/01/06(月) 09:58:12.70

ワンボタンマウスなんてクソに引っ張られなくてwinに感謝してる
独立した△□三なAndroidに感謝してる

**デフォルトの名無しさん** · 2025/01/06(月) 13:18:15.88

馬鹿はMacがワンボタンマウスだと思ってる

**デフォルトの名無しさん** · 2025/01/06(月) 13:37:03.49

ハゲもMacがワンボタンマウスだと思ってる

**デフォルトの名無しさん** · 2025/01/06(月) 13:56:37.51

2000年過ぎてもワンボタンだったなんてバカ過ぎるw

**デフォルトの名無しさん** · 2025/01/06(月) 14:13:55.27

>>921
馬鹿はまだ気付かないのかよ

**デフォルトの名無しさん** · 2025/01/06(月) 19:49:43.48

>>922
ニホンゴワカラナイ奴は絡んでくるなよw

**デフォルトの名無しさん** · 2025/01/07(火) 12:23:32.84

アップルは間違いに気づいて
ウィンドウズと同じ方式にした
あれだけこき下ろしてたのに

**デフォルトの名無しさん** · 2025/01/07(火) 13:37:08.71

現行マックのマウスは言わば無限ボタン
表面全体がセンサーでタッチパッドぽく使えるようになってる
これに慣れると普通のホイールマウスが不便すぎて使えなくなる

**デフォルトの名無しさん** · 2025/01/07(火) 17:13:54.87

>>925
無限ボタンｗ
信者って面白いこと言い出すな

**デフォルトの名無しさん** · 2025/01/08(水) 09:45:47.27

無限ぷちぷちシートを思い出した

**デフォルトの名無しさん** · 2025/01/09(木) 12:38:58.06

そしてすぐ忘れる

**デフォルトの名無しさん** · 2025/01/09(木) 16:04:35.97

最近Excel関連スレはどこも過疎すぎ。みんなどこに飛んだ？

**デフォルトの名無しさん** · 2025/01/09(木) 17:29:47.26

>>929
回答してくれるExcelの神様たちが
ハゲたり死んでしまったんじゃないか?

**デフォルトの名無しさん** · 2025/01/09(木) 19:48:52.41

AIに聞いてるんじゃね？

**デフォルトの名無しさん** · 2025/01/09(木) 19:57:46.66

AIはアカン。回答に魂が籠もっていないから。
やっぱりこのスレの回答者みたいに喜怒哀楽感情全開な回答が良い。