23/01/29 15:32:41.79 f1+hE2K/.net
ChatGPTが質問に答えるスレにするか
25:デフォルトの名無しさん
23/01/29 15:48:46.34 a8aDmRGI.net
ただの荒らしのクズ
自己紹介してて笑った
152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8
零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります
26:デフォルトの名無しさん
23/01/29 15:49:50.57 +wCusoil.net
ごめん教えて
vbaエキスパートのスタンダード合格をめざしてるんだけど
excel兄さんの初心者okvba入門の学習終了後は
オデッセイ公式の教科書学んで模擬試験をいくつか解くって
流れで大丈夫かな？
27:デフォルトの名無しさん
23/01/29 15:51:25.76 f1+hE2K/.net
>>25
学習の順番は人それぞれですが、Excel VBAの初心者向けのリソースを学び終えた後に、公式の教科書を学び、模擬試験を解くのは良い方法だと思います。また、学習の過程で疑問が生じた際には、公式のリソースやフォーラムなどで質問をすることで、理解を深めることができるでしょう。
28:デフォルトの名無しさん
23/01/29 15:52:32.19 f1+hE2K/.net
>>24
成りすましまでして嬉しい？
29:デフォルトの名無しさん
23/01/29 15:54:37.35 f1+hE2K/.net
零細企業の人は全員が同一人物
大企業の人は全員が同一人物
と考えてる人なのかな
30:デフォルトの名無しさん
23/01/29 16:01:39.24 ogTO7uxk.net
vbaわからんくせにvbaについて人に教えようとしてる馬鹿が荒らすスレ
31:デフォルトの名無しさん
23/01/29 16:03:04.94 q46JDI4p.net
>>29
I'm sorry, but I'm not sure what you are asking. Could you please provide more context or clarify your question?
32:デフォルトの名無しさん
23/01/29 16:19:21.53 +wCusoil.net
>>26
ありがとう 公式教科書買って学習を進めます
33:デフォルトの名無しさん
23/01/29 22:53:22.67 QtxW6Mg4.net
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
data = "abcdyyzzzz・・" ← HEXにすると "414243440006??????・・"
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = data
rec1 = rec0 ←型が一致しません
Debug.Print Len(rec1.field02)
End Sub
dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。
34:デフォルトの名無しさん
23/01/29 22:58:04.84 5iJXY4pQ.net
>>32
自称零細企業の荒らしでなければこのスレで質問しない方がいい
ﾜｯﾁｮｲ付きがあるからそちらの方へ
35:デフォルトの名無しさん
23/01/29 23:06:06.52 QtxW6Mg4.net
>>33
関係ないけど
36:デフォルトの名無しさん
23/01/29 23:11:08.32 QtxW6Mg4.net
ﾜｯﾁｮｲ付きに移動します
37:デフォルトの名無しさん
23/01/30 01:25:17.95 gvsaRr2X.net
>>32
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
data = "abcdyyzzzz・・" ' HEX representation: "414243440006??????・・"
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = data
rec1 = rec0 ' Type mismatch error
Debug.Print Len(rec1.field02) ' Cannot determine length of field02, as it is not a string
End Sub
ChatGPT Jan 9 Version. Free Research Preview. Our goal is to make AI systems more natural and safe to interact with. Your feedback will help us improve.
38:デフォルトの名無しさん
23/01/30 01:27:24.25 gvsaRr2X.net
>>32
このプログラムは動作しません。Len関数は数値型のみに対応していますが、rec1.field02は文字列型です。また、RecClass0とRecClass1は異なる型のレコードであり、直接代入することはできません。適切な変換または変換メソッドが必要です。
39:デフォルトの名無しさん
23/01/30 01:43:44.90 UMJQVMXE.net
VBAも知らない零細企業の馬鹿がChatGPTを使ってあちこちで荒らしている
零細企業だからこんな馬鹿を雇ってしまうのか
40:デフォルトの名無しさん
23/01/30 05:09:58.15 70ouVKj3.net
零細企業＞＞無職ニート
41:デフォルトの名無しさん
23/01/30 06:31:52.46 PAS2bzav.net
>>38
マジレスすると今の時代VBA分からなくてもパワーピボットとパワークエリが出来たのでなんとでもなるんだな。。
下手にVBAなんて使われたら属人化して大変
42:デフォルトの名無しさん
23/01/30 08:44:56.77 xS33jp3z.net
本当はvbsで足りる事しかしてないけど本スレが気持ち悪いからここでVBA使いの振りしてる俺のような奴は多い
powershellでもできるけど遅い
43:デフォルトの名無しさん
23/01/30 13:03:41.57 yj3XWjhj.net
>>37
ちゃんと動いた
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
Data = "abcdefgh"
Mid(Data, 4, 2) = Chr(&H0) & Chr(&H6)
Debug.Print Data
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = Data
LSet rec1 = rec0
Debug.Print "len=", Len(rec1.field02), "value=", rec1.field02
End Sub
実行結果
abc fgh
len= 2 value= 6
44:デフォルトの名無しさん
23/01/30 13:07:01.02 yj3XWjhj.net
>>42
Type RecClass1
field01 As String * 3
field02 As Integer
End Type
field01 が*3だった
45:デフォルトの名無しさん
23/01/30 15:43:24.51 8SHtft39.net
本が届いたから熱心に熟読して縦書き横書き問題を独力で解決したかと思いきや
変なおもちゃにのめり込んで得意満面うれション撒き散らしながらそこらじゅうのスレ荒らし 人間こうなったらお終いの好例
46:デフォルトの名無しさん
23/01/30 17:31:08.06 PAS2bzav.net
全部、一人で書いてると思ってるところでなんかの病気かねこいつ
47:デフォルトの名無しさん
23/01/30 18:23:11.92 xp8ghp6t.net
ID:PAS2bzav
この馬鹿は間違いなく零細企業の荒らしの馬鹿だが
こんな馬鹿なことを堂々と書く真正の馬鹿だからな
>マジレスすると今の時代VBA分からなくてもパワーピボットとパワークエリが出来たのでなんとでもなるんだな。。
>下手にVBAなんて使われたら属人化して大変
48:デフォルトの名無しさん
23/01/30 22:00:35.86 gvsaRr2X.net
AIに置き換えられる爺さんw
49:デフォルトの名無しさん
23/01/31 02:16:35.74 S+Zn5mQA.net
ここスレは零細企業の糖質基地外が暴れるスレですか？
50:デフォルトの名無しさん
23/01/31 02:53:14.73 /aIPghw5.net
ザマァ
51:デフォルトの名無しさん
23/01/31 03:40:52.63 yskGMFbC.net
chatGPTが急に広まったのは零細爺の仕業
52:デフォルトの名無しさん
23/01/31 10:41:46.49 l0U+iCsc.net
ここで暴れるのは構わないのです 彼の専用スレですので 他のスレに迷惑が掛かっている現状が大いに厄介なのです
不幸中の幸いなのは、彼の活動時間帯は週末・出勤前・昼メシ時・帰宅後なので、それを避けて質問回答してれば弊害も軽減されます
ヨメも子供もいないであろう様子は、あいにく昨今の世相を鑑みれば判断材料としての要点には成り得そうも無いのが残念ですが
セルの削除は使えてもセルの挿入はしたことの無い高齢童貞の様子ですしマクロとVBAの区別が付かない様子でもありますので
慣れてくれば彼のレスだと見極め出来るように成れるかと思われます
もう一つ特徴的なのは、なんとかのひとつ覚えという形容がひどく似つかわしい言動を繰り返しますのでそれも判断材料としてください
決定的に欠落していると覚しき特徴は >>1 に見られるように、先人が後進のために親切で書き残している重要ポイントに関してその意味すら
把握できず自分勝手に事を進め取り返しの付かない失敗をし、あまつさえそれを詫びもしない点です あ、お礼も言えない様子でもあります
それでは引き続き彼の言動を生暖かい目でご堪能ください
53:デフォルトの名無しさん
23/01/31 12:53:00.28 uyNeTMlc.net
↑こいつよりもAIの方が人間性が高い件
無駄に長文書くとこだけAIに勝つ暇人w
54:デフォルトの名無しさん
23/02/01 11:25:59.99 o+0FFI+k.net
お？ギリ昼メシ時間に間に合わせたかｗ 毎日朝から晩まで多忙だなｗ ちゃんと仕事「も」しろよｗ
ところで君の識字文字数は何文字までだ？ なるたけそれに合わせるように努力するわ 越えると理解できなくなるようだからｗ
二次元のマンガが描ければ伝わるのかも知らんが、あいにく漫画は描けん すまんな せっかく買った本も読めなくて挫折したのかな
55:デフォルトの名無しさん
23/02/01 12:47:58.88 FYisRI+7.net
>>53
はい、わかりました。私はOpenAIによってトレーニングされた大型の言語モデルです。文字数に制限はありませんが、必要に応じて様々な長さのテキストを生成することができます。
私はマンガやコミックを描くことはできませんが、その代わりにテキストによって情報を伝えることができます。
56:デフォルトの名無しさん
23/02/01 12:49:08.90 FYisRI+7.net
ワロス
この文章は、ある人の特徴を述べています。その人は自分の専用スレッドで暴れますが、その活動時間は週末や昼食時などに限られています。彼はExcelの操作に慣れていないようで、マクロやVBAの区別が付かないとのことです。また、一定の言動パターンがあり、"なんとかのひとつ覚え"という形容が似ていることが特徴的です。さらに、先人の書き残したポイントの意味すら理解できず、自分勝手な失敗をし、詫びもしないという点も指摘されています。
57:デフォルトの名無しさん
23/02/01 13:50:08.27 o+0FFI+k.net
なんで？ 絵は描けるんじゃねーの？ お題を出せばそれに沿った絵を描いてくれるAIだって今や引っ張りだこだろ？
ひとつこっきりの機能しか使えないのか？ そりゃあ、宝の持ち腐れというか、なんとかとハサミは使いようというか←ちがうかｗ
最先端機能の能力にヘッドスライディングするかのように傾倒してる様子だし、ソッチも使いこなそうや せっかくなんだし
で、そろそろ文字数限界か？ だいじょぶか？ まあ、おウチに帰ってこれ読んだらそっちの回答も頼むわ
コッチも文字数越えちゃうんじゃねーかとドキドキハラハラしちゃうからさ
58:デフォルトの名無しさん
23/02/01 14:39:08.42 FYisRI+7.net
文書が下手くそだから長文のでも相手に伝わらないんだよな
AIのまとめのうまいこと
59:デフォルトの名無しさん
23/02/01 16:02:17.57 o+0FFI+k.net
「まとめ」って、おまえ 素でまとめた文章だと思ってるとしたら、相当切ない精神構造だぞ？ AI崇拝する訳だわ
60:デフォルトの名無しさん
23/02/01 17:04:22.13 m0ZZVaVh.net
馬鹿に馬鹿って指摘すると暴れだすから面白い
61:デフォルトの名無しさん
23/02/01 18:13:27.42 FYisRI+7.net
人間性がAI未満て相当な物だぞwww
62:デフォルトの名無しさん
23/02/01 18:20:36.56 Zfxj1nyn.net
そもそもAIの人間性はゼロなのに
63:デフォルトの名無しさん
23/02/01 18:21:40.80 FYisRI+7.net
それにも負けるとはなw
64:デフォルトの名無しさん
23/02/01 18:21:53.75 FYisRI+7.net
人間性がゼロ未満w
65:デフォルトの名無しさん
23/02/01 18:52:45.04 m0ZZVaVh.net
ID:FYisRI+7
零細企業の馬鹿
VBAを使えないことがコンプレックス
実はVBAだけではなく仕事でも使えない馬鹿頭だから零細企業以外雇ってくれない
66:デフォルトの名無しさん
23/02/01 19:12:18.91 o+0FFI+k.net
アカウント作ったからって面白がって無暗やたらとまんまのテキスト放り込んでんぢゃねーぞ
ちったぁ修正・編集してから放り込め
お前にとっちゃあオモチャかも知らんが、そこから出てきた回答をファクトチェックもしないままレスしてんじゃねーよ
世間のでっかい迷惑にしかならねーだろ 事前に修正・編集できるアタマも無いから能無しの行為をし続けるんだろうが
事前にも事後にもチェックすらできねー人間が使いこなせるシロモノとでも思ってんのか 昨今流行りのZ世代の迷惑行為そのものだな
67:デフォルトの名無しさん
23/02/01 20:11:43.45 lb9hnVoT.net
>>65
テキストを投稿する前に修正・編集することが大切です。情報の正確性を確認せず、また、それが他の人々にとって迷惑になることもあります。また、そのような行為は、能力のない人間という印象を与えます。最初から正確な情報を使用することが大切です。
68:デフォルトの名無しさん
23/02/02 12:32:20.71 ZeE2HNsC.net
改行もできないのか
69:デフォルトの名無しさん
23/02/02 13:14:59.40 Cinbplze.net
改行しない方が良いね
70:デフォルトの名無しさん
23/02/02 15:02:24.58 mi7VQxlA.net
VBAが書ける事を自慢したい「VBAバカ」ってどこの職場にもいるんだな
71:デフォルトの名無しさん
23/02/02 15:19:25.86 29C0cqr2.net
サブスクに成ったら使わないんだろ、どうせ いや、使えないんだ、たぶん
72:デフォルトの名無しさん
23/02/02 17:46:37.67 ZeE2HNsC.net
>>69
どこの職場でもVBAを使っているということはない、酷い思い込みだな
73:デフォルトの名無しさん
23/02/02 19:33:26.10 Rrkbv7qY.net
>>69
そういうスキルを持ってると本業とは別腹で仕事積まれる
一度作ると打出の小槌みたいに簡単に出来るとか思われるみたいだし後々のメンテとかも作ったんだからできるでしょ？的に全責任を負わされる
百害あって一利くらいしかない
自慢したいやつは舞い上がらせておいて自分のためにひっそり使って終業時間にとっとと帰るのが一番
74:デフォルトの名無しさん
23/02/02 19:57:16.17 cKwe9LCv.net
>>71
VBAを使えないつもの零細企業荒らしの僻みだぞ
64を参照
75:デフォルトの名無しさん
23/02/02 20:01:59.47 uJMcPSqC.net
>>73
お前が一番人間性の低い馬鹿だけどな
76:デフォルトの名無しさん
23/02/02 20:12:25.15 vkwlTUyg.net
>>74
悔しくて出てきた零細企業荒らしの馬鹿
77:デフォルトの名無しさん
23/02/02 20:13:30.12 uJMcPSqC.net
悔しいのはお前なw
AIにも負ける馬鹿www
78:デフォルトの名無しさん
23/02/02 23:04:20.91 mi7VQxlA.net
た、確かにマクロできる人材はあっちこっちから作成依頼がある
お局様がニコニコして話しかけて来るみたいだな
79:デフォルトの名無しさん
23/02/03 07:05:56.97 4BrjOlDX.net
まあ普段の仕事がパッとしない俺がチヤホヤされてちょっと嬉しかったのは事実
その後うぜーってなったけど
80:デフォルトの名無しさん
23/02/03 09:24:56.87 bTLKSmoy.net
自分で作れや！って言ってやれば良いよ
81:デフォルトの名無しさん
23/02/03 10:20:05.58 /plJaYsx.net
担当でないやつが勝手にシステムをいじったら普通は怒られる
なので上司に○○の修正頼まれたから手伝うと報告しておくのが常識かと
82:デフォルトの名無しさん
23/02/03 10:36:34.85 cDWzcouf.net
時間を取って、説明しながら、調べながら、部分的に少しずつ、一緒に作ってみることが、
時間が掛かりそうで実は、VBA使いを増殖させる一番の方法なのかも知れない。
83:デフォルトの名無しさん
23/02/04 10:03:33.47 dT0fQJ20.net
VBA使いを増殖させてもゴミマクロの後始末が大変になるだけじゃないの？
84:デフォルトの名無しさん
23/02/04 11:14:53.62 mzRI23fF.net
VBA使う事が目的なんかじゃ無い それを使う事で作業を省力化させて効率を上げることが目的なんだ
それにそぐわないシロモノに成り果てたマクロなんか捨てて新しい血で新しい人間が制作し直せばいいだけ
85:デフォルトの名無しさん
23/02/04 12:22:22.01 OC8O+TIw.net
自分が使うだけのマクロなら好きに作ればいいし
社内の別の人も使うなら社内のルールがあるだろう
86:デフォルトの名無しさん
23/02/04 12:36:35.65 3rlXZpet.net
零細だと事務員が半分趣味でやってるから社内ルールなんか存在しない
87:デフォルトの名無しさん
23/02/04 13:27:05.37 Wbq5qWPo.net
業務で使うとなると
pythonとかRuby とか
何か作るのものすごく大掛かりになりそう
88:デフォルトの名無しさん
23/02/04 15:06:16.84 I/fGP3d7.net
自己責任ってことで
89:デフォルトの名無しさん
23/02/04 17:41:39.69 mW4Iie9F.net
いままで転職5回してきたけど、一般事務でマクロなんか書いてるヤツ見たことないぞ？？
関数だって定番のIfとVlookUpとSum系Count系くらい。
マクロバリバリってお前らどんな職場にいるんだい？？
90:デフォルトの名無しさん
23/02/04 17:53:50.60 mzRI23fF.net
高級事務 たぶん一般からだと見えざるスクリーンに覆われたエリア
91:デフォルトの名無しさん
23/02/04 18:32:18.07 mW4Iie9F.net
なるほど。教えてくれてありがとうございました。
92:デフォルトの名無しさん
23/02/04 18:48:22.01 EGgL9lT+.net
俺は普通に会社員で普段違うことしてる、趣味でアプリ作っている中で補助的にVBA使う程度だな
(Rubyは使ったことない)
93:デフォルトの名無しさん
23/02/05 00:40:17.14 BFxvntei.net
家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA
94:デフォルトの名無しさん
23/02/05 01:07:17.25 1pRHyKO9.net
>>92
馬鹿は黙っていればいいのに
95:デフォルトの名無しさん
23/02/05 04:14:48.79 RZ1Bi3wx.net
どこにバカの要素がある？
何でもかんでもバカって書くヤツこそ黙っていれば良いのに。
96:デフォルトの名無しさん
23/02/05 04:17:13.65 1pRHyKO9.net
馬鹿の会社って未だにXP使っているのか？
97:デフォルトの名無しさん
23/02/05 04:38:25.55 meMR2kF6.net
馬鹿とバカをNGワードにして
使った奴のIDもNGに入れる設定にすると幸せになれるぞ
特定の馬鹿が使っているだけだし
こいつまともな回答出来ないからNG入れても影響無いし
これ次からテンプレだな
98:デフォルトの名無しさん
23/02/05 04:39:38.29 meMR2kF6.net
あと零細もNGワードで良いね
99:デフォルトの名無しさん
23/02/05 08:05:02.67 vgbFa8Iy.net
馬鹿と言われてムキになって反応する奴にろくな奴いないから連鎖NGです
100:デフォルトの名無しさん
23/02/05 08:36:50.09 48Nyv5uk.net
その昔はパソコンを触るというのはプログラミングをすることだった時代があったようななかったような
101:デフォルトの名無しさん
23/02/05 09:08:16.60 RZ1Bi3wx.net
初めてNG機能使ったら、あぼーんみたいのがちらほら。
この機能は便利だね
102:デフォルトの名無しさん
23/02/05 09:22:53.60 y1cOfAMz.net
NGワードをテンプレにするのはいいね
試しに零細の馬鹿と言ってみて反応した奴はテンプレも読まずスレの助言に従うつもりもなくスルーできない本物だと早々に明らかにされる
善良な回答者が無駄に回答させられる事態を避けられるわけだ
103:デフォルトの名無しさん
23/02/05 10:07:59.66 LjI82vuM.net
バカンスには何してる？
104:デフォルトの名無しさん
23/02/05 10:25:20.42 DaRLN+Se.net
ここに次スレなど無いｗ 本スレに戻れ乱立させるなここは隔離スレ 週末だってのに当人出没しないけど
105:デフォルトの名無しさん
23/02/05 10:32:43.76 T64VJbXT.net
当人て誰？
106:デフォルトの名無しさん
23/02/05 12:07:04.00 RZ1Bi3wx.net
気にさわる人は設定からNGワード登録がオススメ。
107:デフォルトの名無しさん
23/02/05 14:18:15.45 xvzUW3Ng.net
>>105
お前が一番頭が悪い.NETなんてOSに入っているだろうが
108:デフォルトの名無しさん
23/02/05 14:37:51.60 T64VJbXT.net
頭が悪い
追加
109:デフォルトの名無しさん
23/02/05 15:11:40.23 DaRLN+Se.net
じぶんのレスまでNGじゃねーかｗ そんなドジ踏むのは >>1 ぐらいだ ムダな改行で尻尾見えてるけどなｗ
110:デフォルトの名無しさん
23/02/05 15:41:40.49 xS/cNQHV.net
NGワードやNGIDの機能を作った人は天才だなと思った
111:デフォルトの名無しさん
23/02/05 16:20:36.45 ctxVJUwU.net
>>106
秀丸エディタでC#書くバカは流石にいない
112:デフォルトの名無しさん
23/02/05 16:46:34.16 vWrwcA+5.net
>>110
メモ帳で書く強者もいるぞw
URLﾘﾝｸ(qiita.com)
113:デフォルトの名無しさん
23/02/05 17:32:22.36 xvzUW3Ng.net
>>110
元の書き込みをよく読め
>家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA
114:デフォルトの名無しさん
23/02/05 18:46:21.19 K4ptPXTt.net
RubyとPythonもNGワードに追加で
115:デフォルトの名無しさん
23/02/05 20:19:59.88 T64VJbXT.net
なんか、りんなの方が賢く視えてきたw
URLﾘﾝｸ(i.imgur.com)
116:デフォルトの名無しさん
23/02/05 20:36:43.07 RZ1Bi3wx.net
てかさ、過去スレにうざいヤツのidはNGにすれば良いと忠告されていたのを忘れていただけよ。
本当便利だねNG設定は。
117:デフォルトの名無しさん
23/02/05 21:17:02.74 PITx2JDw.net
>>115
お前が原因だろうが
118:デフォルトの名無しさん
23/02/06 02:28:52.25 zHp4cAIL.net
NGワード推奨
「お前が原因」
119:デフォルトの名無しさん
23/02/06 18:40:54.26 aEkJZ2xc.net
お前が原田
120:デフォルトの名無しさん
23/02/06 18:49:20.28 XprS0Gnp.net
泰造です
121:デフォルトの名無しさん
23/02/07 12:31:38.13 NFcQ7tYj.net
このスレの人達はマクロとマグロどちらが好きですか？
122:デフォルトの名無しさん
23/02/07 18:23:50.30 azuGrvvm.net
>>120
マグロです
初めての女もマグロで捌くのに苦労しました
123:デフォルトの名無しさん
23/02/07 19:20:14.88 EVZJ1Jw3.net
そしてあそこはマックロ
124:デフォルトの名無しさん
23/02/07 20:54:54.09 uVJ5qMcc.net
昔の職場で女子社員がマクロの事をマグロって素で言っていたのを思い出した
125:デフォルトの名無しさん
23/02/08 12:26:11.89 oH+IvagG.net
104万行とか書き出したの>>1だろ カタカナだったのをアルファベット表記に変えて誤魔化してるけど
いっつも何か抜けた質問なのはクリソツだ
126:デフォルトの名無しさん
23/02/08 14:01:46.08 9o6t5jzk.net
://jp.quora.com/エクセルの機能でマクロがありますが、ミクロもあり
ますか？
127:デフォルトの名無しさん
23/02/08 15:35:30.93 FTgAG7p2.net
あなたの後ろにドクロが見えます
128:デフォルトの名無しさん
23/02/09 18:10:13.26 aJtl4Osy.net
ももクロは？
129:デフォルトの名無しさん
23/02/09 20:08:27.21 zbgEdy/S.net
無職の息子が事務に就職するためにマクロの資格を取ると言っているのですが
そんな役に立つか分からないものじゃなくもっと事務の仕事に役立つ簿記をとってほしいと言っても聞きません
マクロを使われている皆さんから見てもマクロの資格しかない人間なんか採りませんよね？
130:デフォルトの名無しさん
23/02/09 20:11:01.11 oRtRHGsJ.net
>>128
おっしゃる通りだね
VBAは属人化の最たる物だからかえってマイナスかも
131:デフォルトの名無しさん
23/02/09 20:13:24.22 WlGsC4V+.net
>>128
マクロの資格は事務の仕事に必要なスキルの一つですが、単独では仕事に適していない
132:場合もあります。簿記の資格や事務に関連する他のスキルを備えた人材が求められることもあります。そのため、マクロの資格だけでは応募になれない場合もあります。 あなたの息子が今後のキャリアアップに向けて考えておくべきは、職場で必要とされるスキルを持っていることです。簿記の資格も含め、仕事に役立つスキルを身につけることで、より魅力的な人材になることができます。
133:デフォルトの名無しさん
23/02/09 21:06:41.73 1BKoKxeD.net
>>128
両方とればいい、資格がある方が有利ってだけの話
そうそううまくいかないのが世の中
134:デフォルトの名無しさん
23/02/09 21:11:22.86 eLe3MrDF.net
>>129
>>130
やはりそうですよね、落ち着いてもう一度話してみようと思います
マクロを事務で使うことなんてないし
マクロは記録するものなのに見栄をはってマクロを書けるなんておかしな表現をするようでは資格があったとしても取れはしないと
135:デフォルトの名無しさん
23/02/09 21:15:03.44 9v0l8GAr.net
>>131
そうだとしてもまずは簿記から取らせるべきですよね？
それにエクセルの資格でもマクロだけのものよりもエクセル全体の資格のほうが事務能力を評価してもらえると思います
136:デフォルトの名無しさん
23/02/09 22:00:25.94 nBzxeXqK.net
マクロを知らない馬鹿にVBAを使えずに僻んでいる馬鹿が答えて馬鹿同士で納得していて笑った
137:デフォルトの名無しさん
23/02/09 22:03:18.17 1BKoKxeD.net
>>133
本人が興味ない資格の勉強しても覚えられるとは思えん
やりたいようにやらせるがいい、結局は自己責任
138:デフォルトの名無しさん
23/02/09 22:48:14.12 5M6BEBFG.net
>>133
簿記2級ねらった方が良いよね
事務職なら
話はそれからだ
139:デフォルトの名無しさん
23/02/10 00:03:29.76 YH2SeA6S.net
>>134
馬鹿を連呼する馬鹿がいるスレはここですか？
140:デフォルトの名無しさん
23/02/10 07:22:18.13 jDe/a0Sf.net
と、馬鹿が申しております。
141:デフォルトの名無しさん
23/02/10 07:56:54.21 X5Ej7qVR.net
連続あぼーんワロた
142:デフォルトの名無しさん
23/02/10 09:26:00.78 sM1HDV8m.net
変数として用意した配列(例えば100行×5列等)にデータを入れ、その配列に対してvlookupやmatchのような関数を当てたいのですが可能でしょうか？可能であればどのように記述出来るのでしょうか？
現在はよく分からず多重if, forで誤魔化してます
143:デフォルトの名無しさん
23/02/10 09:43:26.29 X5Ej7qVR.net
(tmp) ＝ VlookUp(引数)みたいな感じ？？
144:デフォルトの名無しさん
23/02/10 12:22:05.62 PIkGF45X.net
配列に対してはムリだと思う。dictionaryなんか使ってやれば似たようなことは無理やりできるかもだけどそれならいちどシートに書き出してworksheetfunctionでシート関数を使ったほうが簡単。
EXCEL VBAの配列操作が貧弱なのはシートでできるからだと割り切ってる。2次元限定だけど。
145:デフォルトの名無しさん
23/02/10 15:39:36.07 WNti9dgN.net
URLﾘﾝｸ(i.imgur.com)
自治会の総会集計を頼まれて、書面表決導入でお助けください
議案は1～5まであり、個別でも一括でもいいとしています
賛成・反対・棄権でひとつのブロックとして、一�
146:㏍uロックに数値がある場合で議案1～5ブロックが未記入の場合にコピーしたいです コピーするのは世帯人数に数値がある行までです この例だと3行目何もせず、4と5行目は議案1～5に一括ブロックをコピー 6行目は議案3のみに一括ブロックをコピー VBAでの組み方をご指南ください
147:デフォルトの名無しさん
23/02/10 17:37:33.44 i/BO22nF.net
そんなの何十行もあるわけじゃあるまいし手動でもいいと思うが
148:デフォルトの名無しさん
23/02/10 18:08:35.29 WNti9dgN.net
500行あるんす
149:デフォルトの名無しさん
23/02/10 18:10:14.38 i/BO22nF.net
すげー自治会だな
150:デフォルトの名無しさん
23/02/10 18:26:50.24 VmkjxzjW.net
>>143
このシートを「データ」シートにしてもう１つシート作ってそれを「集計シート」にして計算式でやったほうが楽だと思う
151:デフォルトの名無しさん
23/02/10 18:37:45.48 A9tz9okE.net
>一括ブロックに数値がある場合で、
>議案1～5ブロックが未記入の場合にコピーしたい
議案1～5ブロックは、個別の数なのか？
それなら、議案1～5ブロックに数値が書かれている場合にも、
一括ブロックの数値を足さないといけないのでは？
152:148
23/02/10 18:43:32.78 A9tz9okE.net
1. まず、一括ブロックと議案1～5ブロックの空欄にも、0 を入れる。
これで全てのセルに、何らかの数値が入る
2. 次に、一括ブロックの数値を、議案1～5ブロックに足していく
153:デフォルトの名無しさん
23/02/10 19:17:16.32 6IlNtWZO.net
>>143
俺なら、
世帯行（３行～データ無くなるまで）と
議案列（この場合５回）の二重ループ内させて
一括Gの入力判定して議案空白の列に載せていく
154:デフォルトの名無しさん
23/02/10 19:31:04.95 IBbxfpHM.net
>>143
自分も>>150と同じ方法でやるかな。
ちなみに実際にコード書いてみたら22行だった
(変数の取り方とかで多少ずれるけどほぼこのくらいかと)。
155:デフォルトの名無しさん
23/02/10 19:32:46.64 WNti9dgN.net
>>148
基本賛成だけど、この議案だけ反対って場合は一括賛成、個別反対を許すようにした
個別入ってるときはそっち優先
なるべく入力を減らす配慮
>>150
それがやりたいっす
>>151
く、くださいっ
156:デフォルトの名無しさん
23/02/10 20:01:37.48 DfKN5OB+.net
>>152
関数で解決できそうなら無理にVBAで解決することもないと思う
で、これはやりたいことと解決したいことが合ってるのか気になっての質問なんだけど
6行目、議案3の他に2,4も世帯人数と比べ回答数が少ないように見えるけどそこには何もしなくていいの？
157:151
23/02/10 20:45:28.82 IBbxfpHM.net
>>152
コードは下記。
今回は記述してないが、500行あるなら
screenupdatingをfalseにした方がいいかと。
Sub 議決()
Dim i As Long, j As Long
Dim r1 As Range, r2 As Range 'r1は一括の空白数取得用、r2は各議案の空白数取得用
Dim rowNumber As Long 'データが埋まっている行数取得用
rowNumber = Cells(Rows.Count, 1).End(xlUp).row
For i = 3 To rowNumber
Set r1 = Range(Cells(i, 2), Cells(i, 4))
If WorksheetFunction.CountBlank(r1) <> 3 Then
For j = 5 To 17 Step 3
Set r2 = Range(Cells(i, j), Cells(i, j + 2))
If WorksheetFunction.CountBlank(r2) = 3 Then
r2 = r1.Value
End If
Next j
End If
Next i
End Sub
158:デフォルトの名無しさん
23/02/10 21:17:11.72 WNti9dgN.net
>>153
その数値の整合性は表決者依存にしました
議案4に個別したらそれを尊重すると
>>154
で、できました
ささっと作ってくれるってすごいです
ありがとうございます
総会乗りきれます！
159:デフォルトの名無しさん
23/02/10 21:52:52.21 ciEsiTU6.net
>>155
9人世帯の議案4には棄権1しか入っていないけど、これは
一括に関係なく議案4に個別で入れた人が棄権1人しかいなかった
その上で9人世帯は議案4に関して棄権1名のみとして扱う
みたいな解釈でいいのかな？
一括が何票あろうが個別1票のが上みたいな
単純に各議案ごとに全世帯での票数を計上したいわけじゃなさそうだよね
160:デフォルトの名無しさん
23/02/10 22:03:07.12 ix/AvTMJ.net
>>140
セル範囲指定するとに配列の変数名指定するだけ
バリアント型じゃないと無理かもしれん
>>142
WorksheetFunctionでセル範囲指定する奴はほとんど配列でもいける
というか、VBAにわたってくるときに内部的に配列になってるはず
161:デフォルトの名無しさん
23/02/10 22:07:47.74 ix/AvTMJ.net
参考コード
Option Base 1
Sub x()
Dim a(10, 2)
For i = 1 To 10
a(i, 1) = i: a(i, 2) = i & "だよ"
Next
MsgBox WorksheetFunction.VLookup(7, a, 2)
End Sub
162:デフォルトの名無しさん
23/02/11 03:59:07.46 aNcmPbDM.net
>>156
実際はシャンシャン総会なので一括賛成で終わると思ってます
書面7割、ネット3割を想定
ネットはGoogle Formsを使うので、定義として全項目スキップできるようにしてあって
概ね賛成だけど議案4だけ個別回答
その場合は表決者がつじつま合わせないとその議案はそっち優先にしますよとしています
163:デフォルトの名無しさん
23/02/11 07:30:30.25 6Ch2sdKJ.net
>>158
マジか！！！ と思って試してみたらマジだったｗ
んで個人的によく使うmin,max,match,countifを試してみたら
min,maxはできたけどmatch,countifはダメだった。
要素の中身を取り出す系の関数はいける感じかな？
ひとつ理解が深まった気がするよ。ありがとう。
164:デフォルトの名無しさん
23/02/11 08:41:56.27 DG09Hgtn.net
Subtotalって集計キーを２つ指定したいときはどうやるの？
165:デフォルトの名無しさん
23/02/11 09:45:09.37 jORavOuf.net
sumproduct
166:デフォルトの名無しさん
23/02/11 19:56:49.54 uHiybqGX.net
マクロの資格とかあるの？MOSのこと？
167:デフォルトの名無しさん
23/02/11 20:04:45.09 cvm4+SaB.net
そいやあるのかね、言語としては古くてしょうもないが
168:デフォルトの名無しさん
23/02/11 20:10:27.29 9czFn3SB.net
VBAエキスパートという民間資格
MOS ビジネス統計すぺしゃりすと IC3 あどび認定ぷろふぇっしょなる Microsoft認定資格 App Development with Swift IT Specialist えｔｃ
URLﾘﾝｸ(www.odyssey-com.co.jp)
169:デフォルトの名無しさん
23/02/11 20:16:37.74 uHiybqGX.net
ありがとう。あるんですね。
170:デフォルトの名無しさん
23/02/11 20:18:50.78 uHiybqGX.net
イミディエイトウィンドウでは実行できないステートメントはどれか。次の中から1つ選びなさい。
1.?Range("A5").Value
2.MsgBox "Hello!"
3.Dim x As Integer
4.For i = 1 To 10:total = total + i:Next i:Print total
３番かな？
171:デフォルトの名無しさん
23/02/11 20:20:26.56 uHiybqGX.net
次のような2つのプロシージャを同一の標準モジュール上に作成した。「M_Proc」プロシージャの実行結果はどうなるか。次の中から正しいものを1つ選びなさい。
Sub M_Proc ()
Dim a As Long
a = F_Proc(3)
MsgBox a
End Sub
Function F_Proc(Optional x As Long = 5) As Long
F_Proc = x * 2
End Function
---
①6
②9
③10
④実行時エラーが発生する
172:デフォルトの名無しさん
23/02/11 20:23:23.87 uHiybqGX.net
Optional x As Long = 5
って何？この引数。
173:デフォルトの名無しさん
23/02/11 20:25:24.81 uHiybqGX.net
次のプロシージャはセルA1の値に応じてメッセージを表示するものである。セルA1の値が3未満だったら「A」と表示させたい。このとき、【 1 】に入る適切な命令を解答欄に入力しなさい。
Sub Sample()
Select Case Range("A1").Value
Case 【 1 】
MsgBox "A"
Case 5
MsgBox "B"
Case 7 To 9
MsgBox "C"
Case Else
MsgBox "該当なし"
End Select
End Sub
174:デフォルトの名無しさん
23/02/11 20:30:06.33 uHiybqGX.net
資格が役立つかさておき、いい問題だね。
175:デフォルトの名無しさん
23/02/11 21:14:28.92 nDlYjCHU.net
>>169
省略引数でしょ
って言うか vba optional でググれ
176:デフォルトの名無しさん
23/02/12 08:33:11.90 aoDTDGlX.net
vba解説してるサイト見たら皆プロシージャの最後に
set obj = nothing '後始末
ってやってるけどあれ循環参照以外で意味ある？
やらずにadodbとかseleniumで10万回以上実行してるけど何の問題も起こらない
177:デフォルトの名無しさん
23/02/12 09:18:22.71 19IYgGC6.net
>>173
意味ない
循環参照でもそれで解決するならやらなくても解決する
178:デフォルトの名無しさん
23/02/12 11:39:10.47 71AjNYz+.net
.cels(1,1) = 〇〇
セル指定で行や列の連番を簡単に入力する方法ってありますか？
以下のようにオートフィルのような感じでコードを作成したいです。
.cels(1,2) = 〇〇
.cels(1,3) = 〇〇
.cels(1,4) = 〇〇
179:デフォルトの名無しさん
23/02/12 13:09:04.90 aoDTDGlX.net
>>174
これからも書かない事にしときます
>>175
こういう事？
Sub a()
Dim i
For i = 2 To 10
Cells(i, 1) = i
Next
End Sub
180:デフォルトの名無しさん
23/02/12 13:12:25.71 +dHL9JcR.net
>>175
For で回すのがだめな理由を書いて
181:デフォルトの名無しさん
23/02/12 13:17:48.68 GOWa9Zgu.net
>>175
連続するセルに違う内容を書き込みたいんなら配列を使う手もある
Range("B1:D1") = Array("あああ","いいい","ううう")
182:デフォルトの名無しさん
23/02/12 15:04:05.55 uHFAq1f0.net
>>175
celsの用語が間違っているのと、
○○を "○○" のように書けば簡単に入力できますよ
183:デフォルトの名無しさん
23/02/12 18:33:42.43 T5GBSGpP.net
>>175
.celLs(1,1) = 〇〇 をワークシートに貼り付けて
フィルハンドルを下にドラッグしたら簡単ですよ
184:デフォルトの名無しさん
23/02/13 00:34:04.23 pezzuKY3.net
わざとやってるだろw
185:デフォルトの名無しさん
23/02/13 10:11:26.26 QGUistpW.net
暇潰しで初心者のふりしてるように見えるね
186:デフォルトの名無しさん
23/02/13 14:01:41.50 b7LuPfio.net
>>173
通常のローカル変数に対しては、意味がない
本当にプロシージャの最後で通常のローカル変数なら、循環参照でも意味はない
書くのが良い作法とされる流派はあるが、それどこの解説ページだ？
いまどきは、皆って言うほど書く人はいないイメージだがな
>>174
通常のローカル変数じゃなければ意味はあるかもしれんぞ
187:デフォルトの名無しさん
23/02/13 14:31:44.50 CpfiRcck.net
>>183
> 通常のローカル変数じゃなければ意味はあるかもしれんぞ
どんなケース？
188:デフォルトの名無しさん
23/02/14 03:25:36.32 zG3Q3kn7.net
>>184
通常のローカル変数じゃないんだから
グローバル変数とか、Static変数とかだろ
189:デフォルトの名無しさん
23/02/14 06:05:43.15 3/1aS8Pe.net
>>183
> >>173
collectionとかに格納したオブジェクト変数なんかはちゃんと開放されてるのか不安にはなるね。
190:デフォルトの名無しさん
23/02/18 22:43:39.59 6PWZugQu.net
windows10アップーデートしたけど、普通にvbaでIE操作できるね。助かったわ
191:デフォルトの名無しさん
23/02/19 01:32:52.35 15y14fHP.net
EdgeのIEモードは実質IEが動いてるのでな
いまの所MSも2029年まではIEは裏方で生き長らえる保証してるから安心していいぞ
どうせ6年後もWindowsが存在してればIEの寿命も延長されるだろうよ
192:デフォルトの名無しさん
23/02/19 02:32:29.18 hw6q8la/.net
Windows12の噂もちらほらだからまだまだ消えないだろうや
193:デフォルトの名無しさん
23/02/19 13:49:26.92 Uh8lBtn9.net
セル内にある数式の"＝"を削除する方法はありますか
テキストとして、”A1-A2”などだけが残るようにしたいのです
194:デフォルトの名無しさん
23/02/19 14:00:41.05 De+xjlNk.net
>>190
Range("A1") = Mid(Range("A1").Formula, 2, 999)
195:デフォルトの名無しさん
23/02/19 16:05:55.05 QuMlk2qt.net
ワークシート関数なら
=SUBSTITUTE(FORMULATEXT(A1),"=","",1)
196:デフォルトの名無しさん
23/02/19 16:31:24.35 xSIr/CQB.net
>>192
それA1に設定したらA1が「SUBSTITUTE(FORMULATEXT(A1),"=","",1)」にならない？
197:デフォルトの名無しさん
23/02/19 18:14:30.54 FtkTxk83.net
>>190
どういう風に残したいかによって変わるかと。
対象の関数が入っているセルから関数(=)を消すなら=を空白に置換、
別のセルに書き出したいなら>>192の書いてる方法かと。
198:デフォルトの名無しさん
23/02/19 21:30:32.90 QtOszatp.net
ここはVBAスレ
199:190
23/02/20 15:11:57.56 AObDtk9K.net
どうもです
A1、A2を足し算する場合、＝A1+A2
となりますが、この結果をcsvで保存しているのです
ですから、式の部分が結果の数値になります
毎日、あらかじめよぶんに式を次の行にコピーしておいて使いたいので、式の入っている部分をそこのセルだけ下にドラッグしています
そのままですと、式の結果だけ残って、式が消えてしまって不便なのでイコールを除去して取っておこうと思ったわけです
イコールの追加
ActiveCell.formula ="="&ActiveCell.Value
イコールの削除
ActiveCell.Value =Replace(ActiveCell.Formula,"=","" )
これでいけるだろうかと思ってやっているところであります
200:デフォルトの名無しさん
23/02/20 15:29:44.23 2ZMpD8wr.net
エクセル形式で保存してください
201:デフォルトの名無しさん
23/02/20 18:06:18.64 Y+9TMPzL.net
vba以前の問題というか無知な質問でごめん
転職先で会社からUSBメモリを配布されたから
自宅のPCでマクロ作ってxls形式、xlsm形式の両方で会社のPCに移して使おうとしたら何度やってもアクセシビリティの利用不可？で無限ループのごとくフリーズ
タクスマネージャから強制終了
セキュリティで弾かれてますか？
202:デフォルトの名無しさん
23/02/20 18:09:31.33 O/Xt15uK.net
自宅で作ったプロシージャをtxtとかで会社メールに送ってそこで新しく作って標準モジュールとかに入れてけば出来る？
忙しすぎて会社で試せてない
203:デフォルトの名無しさん
23/02/20 20:29:16.39 SOlJ2Ite.net
>>198
分かりません
>>199
分かりません
204:デフォルトの名無しさん
23/02/20 20:37:46.69 sKNUAhyw.net
セキュリティの厳しい会社だと、メールや添付ファイルに何らかのプログラムが書いてあると自動的に削除される
205:デフォルトの名無しさん
23/02/20 21:03:48.15 KZiGFVej.net
なんで赤の他人にそんなセキュアな疑問訊ねるかな？社内規定でどう扱えばいいかUSB渡されたとき聞いてなかったのか
勝手なことしてるとまたすぐ転職する羽目に陥るぞ
206:デフォルトの名無しさん
23/02/21 12:00:15.73 QtuhzazS.net
どなたかVBAでのレジストリ操作についてわかる方いたら教えてください。
以下の方法を試しましたが、取れる値と取れない値がありました。
取得したい値の読み取り権限も許可してもうまくいかず。。。
・WScriptのRegRead()メソッド
・api
・bat
色々切り分けたところbatファイルを単体で実行したときには取得できて
VBAからbatファイルを実行すると値が取得できないので
VBAの実行権限に問題があるのではと考えていますが
権限とか関係なしにapiでどこでも取得できるよとか
何かご存知の方いたらコメントお願いします。
207:デフォルトの名無しさん
23/02/21 12:02:26.74 QtuhzazS.net
連投すみません
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft配下の
値を取得できない状況です
208:デフォルトの名無しさん
23/02/21 12:23:42.75 O9yVRoe+.net
>>203
VBAで昇格は無理だからコマンドライン呼び出せ
209:デフォルトの名無しさん
23/02/21 12:58:35.82 QtuhzazS.net
>>205
回答ありがとうございます。
コマンドラインで呼び出すというのは
以下コードのように実行結果を取得する感じですかね。
試してみたところ、実行結果が空白で返ってきたのですが
基本的にはレジストリのどの値も取得できるのでしょうか？
'実行するコマンドを指定
command = "ping 192.168.10.1"
Set wsh = CreateObject("WScript.Shell")
'コマンドを実行
Set execObj = wsh.exec("%ComSpec% /c " & command)
'コマンドの実行結果を取得
commandResult = execObj.stdOut.ReadAll
210:デフォルトの名無しさん
23/02/21 13:01:26.92 QtuhzazS.net
pingの実行結果は返ってきますが
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft" /v "指定の場所"の
結果が返ってこないです。
211:デフォルトの名無しさん
23/02/21 13:15:24.72 fHD8EY4F.net
まるごと不可？
部分的に不可？
212:デフォルトの名無しさん
23/02/21 13:16:41.22 QtuhzazS.net
>>208
まるごと不可です
213:デフォルトの名無しさん
23/02/21 13:17:37.19 O/2CEwvU.net
>>207
コマンドは管理者権限で実行せんとあかんのと違う？
214:デフォルトの名無しさん
23/02/21 13:40:16.54 QtuhzazS.net
5か所くらい検証してみたら部分的にとれないが正解でした。
× "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\InstallRoot"
× "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\WinSqmFirstSessionStartTime"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Palm\DelayManipulationDuration"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Apple Inc.\Apple Application Support\InstallDir"
215:デフォルトの名無しさん
23/02/21 15:07:37.73 fHD8EY4F.net
win10とvsとvbaで試してきた
LOCAL_MACHINE
"SOFTWARE¥Microsoft¥Cryptography"
"MachineGuid"
RegGetValueWで読めた
216:デフォルトの名無しさん
23/02/21 15:32:26.88 QtuhzazS.net
凄いですね・・・
もう一つの方も行けましたか？
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\
217:デフォルトの名無しさん
23/02/21 15:44:36.64 fHD8EY4F.net
Option Explicit
Declare PtrSafe Function RegGetValueW Lib "advapi32.dll" ( _
ByVal k As LongPtr, _
ByVal s As LongPtr, _
ByVal v As LongPtr, _
ByVal f As Long, _
ByVal t As LongPtr, _
ByVal d As LongPtr, _
ByVal n As LongPtr) _
As LongPtr
Sub DoRegTest()
Dim b(0 To 2048) As Byte
Dim n As Long
Dim r As LongPtr
Const HKEY_LOCAL_MACHINE = &H80000002
n = 2048
r = RegGetValueW( _
HKEY_LOCAL_MACHINE, _ StrPtr("SOFTWARE\Microsoft\Cryptography"), _
StrPtr("MachineGuid"), _
2, _
0, _
VarPtr(b(0
218:)), VarPtr(n)) End Sub ↑この感じでSZ型のキーを読み取った
219:デフォルトの名無しさん
23/02/21 16:08:56.75 QtuhzazS.net
>>214
ありがとうございます。
提示していただいたもので実行してみたところ
戻り値が2でシステムエラーコードで確認すると
「システムは、指定されたファイルを見つけることができません。」
となっていました。
となると、こちらの環境的な問題ですかね。。
220:デフォルトの名無しさん
23/02/21 16:16:03.43 QtuhzazS.net
>>214
無事取得できました！
本当にありがとうございます。
お手数おかけしました。
221:デフォルトの名無しさん
23/02/21 19:33:10.83 JTliHuKO.net
>>199
>忙しすぎて会社で試せてない
お前はいったい何をやっているのだ？VBAは仕事ではないのか？会社で試すのは仕事ではないのか？
メール開く時間すらないほど忙しい会社なのか？インポートやエクスポートを知らんのか？
222:デフォルトの名無しさん
23/02/22 01:16:47.41 9VE/T3g1.net
あぼーん
223:デフォルトの名無しさん
23/02/23 14:40:13.33 NwCSUcmQ.net
俺は昨日は余計なメール開く時間も惜しいほど忙しいかったな
まあそんな日もある
224:デフォルトの名無しさん
23/02/23 19:25:49.13 DX82pz52.net
それも仕事
225:デフォルトの名無しさん
23/02/23 21:49:11.96 d94eSRWI.net
ほどほどに忙しいうちが花と言われたからからね。
暇すぎはストレス溜まるし忙しすぎは思考停止する。
226:デフォルトの名無しさん
23/02/25 08:44:32.62 QsBdGNRz.net
VBAを使ってることは誰にも言わず
その日が期日の業務だけサッと終わらせて
後はゲームなり昼寝なりしてるけどストレスフリーよ
メールチェックとかはくだらん定例ミーティングの裏でやる
227:デフォルトの名無しさん
23/02/25 09:53:04.96 aIZzN5su.net
「暇すぎはストレス溜まる」
これアホちゃう？
いままでの人生でそんな思考になったことは一度もない。
暇ならそれに感謝するだけ。
嬉しくてしかたがない。
人生にはやりたいこと楽しいことがたくさんあるんだから
それに暇な時間をそそぐだけでいい。
忙しいのは嫌い。
なぜ貴重な自分の時間をやりたくないことに使わなきゃいけないの。
228:デフォルトの名無しさん
23/02/25 13:54:24.69 JD4Ctbem.net
君にもそのうちわかるよ わからなかったらそこまでだったってこと
229:デフォルトの名無しさん
23/02/25 16:49:36.83 DoqH+M+N.net
社会に出たことない引きこもりの思考またはよほど待遇の良い会社にいるのかどっちかだな。
暇すぎってことは仕事を見つけなければならないんだよ。
他の人の仕事手伝うとか。
230:デフォルトの名無しさん
23/02/25 17:09:52.04 aIZzN5su.net
経営者じゃなけりゃ
同じ時間で給料同じなんだから
ヒマ(楽)ほどいいのは決まってるじゃん。
アルツハイマーでもこれくらい分かる。
231:デフォルトの名無しさん
23/02/25 17:27:31.08 CGMlwC4Y.net
「暇」と「楽」が同じと思ってる時点で精神が子供だな
いや実際未成年なのかもしれないけど
232:デフォルトの名無しさん
23/02/25 22:46:11.32 DoqH+M+N.net
暇だー ←まともな神経なら上席に相談するでしょ？
例「係長、今、自分の仕事が終わって手が空いたのですが、この後何かお手伝いする事ありますか？」
まあアルバイト止まりの未成年君には分からないか指示待ちだもんね。
233:デフォルトの名無しさん
23/02/25 23:57:06.22 E1i3tKVi.net
Sub testest()
Dim z0 As LongLong
z0 = 356 * 100
End Sub
「オーバーフローしました」になるんだが
234:デフォルトの名無しさん
23/02/26 00:11:42.16 sdffjS8S.net
>>228
すごい洗脳的な思考だな
まぁ立派なポチになってくれ
235:デフォルトの名無しさん
23/02/26 00:19:21.95 YMJUJbfk.net
>>229
それVBAのバグに近い仕様
定数は内部で勝手にInteger型に変換されるからすぐにオーバーフローする
もっとわかりやすい例だと右辺が 32767 + 1 でもエラーになる
対策としては全部の定数を先に変数に入れておくなどいくつかある
236:デフォルトの名無しさん
23/02/26 00:20:37.48 /hhgnOlt.net
>>229
数字の後ろに型宣言文字の ^ を付けるといい
237:デフォルトの名無しさん
23/02/26 01:36:14.44 tp9OjsHC.net
>>231
これをバグだと思うお前の頭がおかしい
238:デフォルトの名無しさん
23/02/26 05:06:33.26 eudL/KWJ.net
>>230
あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。
社会に出ればこんなの当たり前だから。
人よりも仕事は早くこなして次のタスクを行う。
そうやって「評価」というものを受け取れるんだよ。
239:デフォルトの名無しさん
23/02/26 08:24:55.67 ohKfmJY8.net
>>230
処世術を知らんのか
240:デフォルトの名無しさん
23/02/26 08:53:33.45 eudL/KWJ.net
相手しない方が良いよ。
何せ社会を知らない奴なんだから。
241:デフォルトの名無しさん
23/02/26 14:38:38.79 3Cr/hlVm.net
>>234
自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。
仕事は自分で見つけるもんやで？
そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん
242:デフォルトの名無しさん
23/02/26 16:26:56.12 eudL/KWJ.net
本当に社会知らないんだな？
>>237
自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」
て言われるのが社会なんだよ。
良く覚えとけよ。
243:デフォルトの名無しさん
23/02/26 21:51:00.91 fkbOU0Ua.net
>>216
今日になって気付いた
戻り値は4バイト整数だったごめん…
244:デフォルトの名無しさん
23/02/28 15:08:20.31 NXRHGwBO.net
>>238
世渡り上手で仕事せずともいられるって人もいるけどな
前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、
こういう漫画みたいな人いるんだなーと思った
レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか
245:デフォルトの名無しさん
23/02/28 16:02:16.29 chlNPmFa.net
すげえww罪悪感のカケラもないその神経を見習いたいわ。
まあ、環境にもよるんだろうね。
自分の職場はみなクッソ真面目の堅物ばかり。
246:デフォルトの名無しさん
23/02/28 16:07:15.89 YzUXpdVm.net
そんな人がこんなスレ訪問するはず無いだろ そんなヒマあったらサボってる
247:デフォルトの名無しさん
23/03/02 03:52:23.34 wSjrNglr.net
ヒマがあったらサボってる？
普通に考えればサボっているからヒマになるのでは？
248:デフォルトの名無しさん
23/03/02 06:53:32.06 J6gUWTNI.net
お、おう。
249:デフォルトの名無しさん
23/03/02 11:19:20.68 iwViG7Fn.net
せめてヒマの意味調べようよ 意味も知らずに話ししてんのか そりゃあ、話し掛けられた相手も困惑することだろうに
250:デフォルトの名無しさん
23/03/03 02:31:42.07 LaDEEyjy.net
に ほ ん ご ほ う か い
251:デフォルトの名無しさん
23/03/03 07:47:29.44 E3REpsyj.net
まったく最近の老害ときたら…
252:デフォルトの名無しさん
23/03/03 12:40:49.00 /y/rr2Lo.net
逆に若い方が間違った日本語を平気で使ってるよ
勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね
253:デフォルトの名無しさん
23/03/03 15:00:36.88 LaDEEyjy.net
いや、最近の若いのは分別しっかりしているでしょ。
年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？
254:デフォルトの名無しさん
23/03/03 15:14:44.70 an7QtCXR.net
老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる
255:デフォルトの名無しさん
23/03/03 18:54:13.51 /y/rr2Lo.net
政治家の老害の方が酷いから社内で経験のある定年前のおっさん程度なら気にならんよ
256:デフォルトの名無しさん
23/03/03 23:49:56.23 k/H9X4nF.net
若者はとか年寄りはという括りで決めてしまうことに何の疑問も持たないのが不思議でな
解ってて話しているならいいけど本気で言ってそう
257:デフォルトの名無しさん
23/03/04 07:57:41.77 8//TjMOu.net
若者だろうが年寄りだろうが関係なくね？
若者でもダメなヤツはダメだし年寄りでもめっちゃリスペクトできる人もいるしな。
258:デフォルトの名無しさん
23/03/04 13:24:30.21 HiKr/1U9.net
普段何を見て育ってきたかが違いすぎて関係ないなんてことはないと思うなあ
259:デフォルトの名無しさん
23/03/04 14:32:34.86 nF/g30df.net
周りにダメな奴がいてダメでない奴もいるとして
その中で自分がダメな奴と一緒になるのか、ダメにならない様に努力するのかが重要になってくる
それと明らかに攻撃してくる相手なら敵と認識して反撃もやむをえない
260:デフォルトの名無しさん
23/03/04 15:11:12.05 8//TjMOu.net
悪かった
年寄りで１番タチ悪いクセは、大人しいタイプで反抗してこない若者をいじめるクセがあるのは何回も見ている。
それはダメだわな。
261:デフォルトの名無しさん
23/03/04 15:37:01.51 z+cjlQY2.net
ここは>>1がじぶんのために立てたスレッドだが、彼は仕事が出来ないのがバレてクビに成ったのか？
丸々一ヶ月音信不通だが 本を一所懸命に読んでる真っ最中なのか？
262:デフォルトの名無しさん
23/03/04 19:52:37.48 nF/g30df.net
>>256
与党が少数意見を無視して増税してきたのは何回も見ている
見ているだけだから問題ないのかな？
263:デフォルトの名無しさん
23/03/04 21:46:53.40 h6QEfyIh.net
ここ何のスレだっけ
264:デフォルトの名無しさん
23/03/05 03:17:25.93 d3m+m4y0.net
>>259
クソスレ
265:デフォルトの名無しさん
23/03/05 17:06:46.67 vENEE6dG.net
985 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 11:47:07.68 ID:mBQ16TA8r [9/9]
はい建てた
Excel VBA 質問スレ Part79
ｽﾚﾘﾝｸ(tech板)
996 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b01-hj3w)[sage] 投稿日：2023/01/28(土) 12:09:25.98 ID:NqcfPhRT0 [5/6]
To: 各位
無能の働き者がワッチョイ無しで次スレ立てちまったんだがどうする？
ワッチョイありで立て直す？
997 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 12:10:22.95 ID:XR4zA44Nr [7/8]
>>996
俺のAIが自動的に削除してたわw
266:デフォルトの名無しさん
23/03/06 01:00:13.14 1WgjQ7Bk.net
そのうちここもあぼーんの嵐になるわさ
267:あはーん
23/03/08 20:49:17.55 szyRCS8l.net
あはーん
268:デフォルトの名無しさん
23/03/09 00:30:01.95 D1VDY6UW.net
おぼーん
269:150
23/03/10 12:55:22.35 QfDmbcex.net
=if(isnumber(match(b1,a5:a31,0)),"ok","bad")
これをVBAで実現するにはどうすればいいか教えて欲しいです
270:デフォルトの名無しさん
23/03/10 20:00:52.25 eEaylvqx.net
>>265
その式で希望通りの結果ならそのままのほうがいいよ
271:デフォルトの名無しさん
23/03/10 20:37:16.92 iWPdLzMM.net
わざわざVBAでやる必要ないモノは関数で良いしね
272:デフォルトの名無しさん
23/03/10 21:01:29.17 WMCxZwMq.net
worksheetfunctionで済むならその方がいいよ
最終的に実現したい方法を教えてくれるか
それとも単純にvbaでどうなるか知りたいかならそういってもらえれば
273:デフォルトの名無しさん
23/03/10 21:50:33.66 IaGJxF6U.net
ChatGPTへ条件を指定するの難しい・・・
日本語が下手で嫌になる
分かりやすいサイトとかyoutubeチャンネルとかある？
274:デフォルトの名無しさん
23/03/10 22:56:34.60 WMCxZwMq.net
>>269
日本語が下手ならchatgptに推敲してもらえばいい
ってかそもそもChatGPTはそもそもコード生成向いていない
ChatGPTのエンジンはgpt-3
本当にコード生成に向いているエンジンはcodex
275:デフォルトの名無しさん
23/03/11 04:47:16.82 ZWvVNp1O.net
ChatGptが作ったコード、なかなかいい感じだが
276:デフォルトの名無しさん
23/03/11 14:42:28.64 SdsqzSUo.net
使いたければ使っていればいい、よそのスレで宣伝する必要なくね
277:デフォルトの名無しさん
23/03/11 15:31:38.67 QVD3K1L3.net
ここは1000行ったらもうそれっきりのスレだから 雑談してりゃいいんだ
278:デフォルトの名無しさん
23/03/11 17:37:12.30 GdTACZTW.net
VBAコードをカラー印刷する方法はありますか？
パソコンで見ると目が疲れるし、気付きにくいこともあるので紙で見たいのです。
279:デフォルトの名無しさん
23/03/11 17:59:17.42 QVD3K1L3.net
やれやれ
URLﾘﾝｸ(forest.watch.impress.co.jp)
おまけ
URLﾘﾝｸ(excelshogikan.com)
もひとつ
URLﾘﾝｸ(tonari-it.com)
もいっちょ
URLﾘﾝｸ(koukimra.com)
なんか、いっぱい出て来る
URLﾘﾝｸ(excel.syogyoumujou.com)
VBEの[ツール]－[オプション]－[エディタの設定]でも、フォントを濃い色にしとかないと印刷しても薄っすいだろうけど
それすると今度は画面がギラついて目に優しくない状況に陥ったりするだろうし いろいろ試して自分の好みで
280:デフォルトの名無しさん
23/03/11 20:46:11.23 GdTACZTW.net
>>275
たくさん貼っていただきありがとうございます。
2番目のツールはHTML化で変換出来なかったんですよね。
最後のアドインのだけカラーで出来るようなのでこちらを使ってみます。
281:デフォルトの名無しさん
23/03/13 20:32:20.84 VmVu1UJJ.net
ChatGPTにVBAでこんな感じに出来ませんか？と質問するとしっかりとしたコードを書いてくれる
282:デフォルトの名無しさん
23/03/13 21:20:54.07 pwuv7WPr.net
Chatgptが普及すれば初級者とか関係なく誰でも高度な事ができるようになるよね。
もはや「Excelできまーす！高度なコード書けまーす！」が通用しなくなる時代が来つつあるな。
283:デフォルトの名無しさん
23/03/13 21:34:37.42 rU40dayx.net
このスレのスレ立て人ディスってんのか？
Excelできます枠で中途入社しときながら、まるきしわからんちんでExcel VBAスレに泣き付いて
質問をキッカケに主人公にでも成ったかのような勘違いしてこの無駄スレ立ててしまった伝説のあいつを？
284:デフォルトの名無しさん
23/03/13 21:35:17.25 +WoIzVW7.net
零細企業のVBAすら書けない無能には間違いがあってもわからんだろうがな
285:デフォルトの名無しさん
23/03/14 12:24:47.61 LCy+s25l.net
これからはリストラが大量に出るだろうね
エクセルの先生()からプログラマー()までPCとにらめっこする仕事は全部ChatGPTで済む虚業ってバレたんだから
286:デフォルトの名無しさん
23/03/14 12:37:28.99 goR8feNU.net
そう思い込むことで、カキコ本人にはどんなメリットがあるんだ？
個人の感想でしかないものにすがるしか、自我を保てないンか？
そんなメンタルならExcel使う事を辞めた方がいいぞ？
そんな得体の知れないものに頼らざるを得ない企業も長続きはしなくなるだろ
会議の席にAI同席させるンか？
287:デフォルトの名無しさん
23/03/14 12:47:00.26 LCy+s25l.net
AIに任せるようになった企業が長続きしないというのはそちらの感想だよね
会議にAIも参加させられない企業と会議にAIが参加できる企業のどちらに柔軟性があるかは明白
288:デフォルトの名無しさん
23/03/14 12:51:49.78 IeRCsjIL.net
AIも道具の一つに過ぎない
289:デフォルトの名無しさん
23/03/14 13:06:56.83 goR8feNU.net
長年いろんな企業を見てきた経験からだ 個人の感想じゃねえ
マンパワーの重要性を認識できない上の方が居たら、大抵足許から崩れてく
会議の席でAIが「できます」っつったら任せるのか？それでコケた場合誰が責任取るんだ？
絵空事夢見て妄想に浸るのは勝手だが、企業もいきもの 維持し続けるための道具としてなら
使いたきゃ使えばいいが、病んだ時のリカバリーにはどうしても人の手は必要（当面は）
例えば、悪天候で電車止まった、架線が切れたようだ 四六時中稼働できる修理ロボットの出番だ！ なんて時代はまだまだ先
必死でそういう時代が来るよう努力し続けるのは否定しないが、どうせそうなるんだから今から仕事放棄 は、ただのあほう
290:デフォルトの名無しさん
23/03/14 13:27:13.02 ZglUMoKm.net
理性的に考えれば今の時代は暗黒だから冷凍人間にでもなって輝かしい未来に解凍してもらうのが正解
291:デフォルトの名無しさん
23/03/14 13:30:38.03 LCy+s25l.net
今置き換えられるのはPCとにらめっこする仕事って限定してるんだが
勝手に読み替えられても困る
292:デフォルトの名無しさん
23/03/14 13:49:04.92 2BnTQRjU.net
これだけは言える
そこらの並のPC教室や素人に毛が生えたインストラクター(笑)は間違いなく淘汰される。
293:デフォルトの名無しさん
23/03/14 14:25:56.84 28TiEHhw.net
こちらでよろしいでしょうか。すみません。
エクセルで、
「ＳＵＭ関数」かつ「０が表示」のセルを、
選択する事は可能でしょうか。
294:デフォルトの名無しさん
23/03/14 16:50:49.76 goR8feNU.net
[ホーム]タブにある「検索と選択」で、検索をクリックして、検索する文字列に SUM ではダメなのか？
[ファイル]の[オプション]、[詳細設定]で □ ゼロ値のセルにゼロを表示する(Z)のチェックに限らず
=SUM( のセルを次々選択してくれるが？ "かつ" の条件を満たさないとどうしてもイヤ！なのか？
Sheetの至る所に＝SUM( がありまくりで絞り込みたいとか？ 「0が表示」という日本語も変だけど
[オプション]での設定はBook全部に影響したと思うのだが
295:デフォルトの名無しさん
23/03/14 17:40:35.43 +v1A3gMG.net
>>285
経験なんて個人の感想の寄せ集めだぞ
同レベルの概念とわかってない時点で論外、やり直し
296:デフォルトの名無しさん
23/03/14 18:40:07.15 1O8NxYp2.net
>>289
フィルタで0を指定してからsumで検索すれば行けそう
297:デフォルトの名無しさん
23/03/14 19:37:13.34 28TiEHhw.net
>>290様
仕事で、料理の数の合計を出しています。料理の数の入力が
ないセルは「空白」ですから、選択オプションで「空白セル」を
チェックし、「空白のセル（列）」をすべて非表示にできました。
最後は、自動で「ＳＵＭ関数」かつ「（合計が）０の表示」のセルを
選択し、セル（列）を非表示にしたいのです。手動でやれよって話
かもしれませんが、マクロで自動化ってできるものなのでしょうか。
298:デフォルトの名無しさん
23/03/14 20:05:55.83 28TiEHhw.net
>>292様
>>フィルタで0を指定してからsumで検索すれば行けそう
確認しました。列にならできると思います。しかし、
行方向のセルにフィルタをかける事はできませんでした。
行の一定の範囲のセルを選択したいです。行にフィルタを
かける事はできませんでした。行と列を入れ替えて、列に
フィルタをかけ、最後に行と列を入れ替えたらよいですか。
299:デフォルトの名無しさん
23/03/14 20:38:11.33 8uN0bEAR.net
>>289
各列の1行目にsum関数があるとして、
その合計が0ならその列を非表示にするというマクロならこんな感じか。
(データがどこまであるかわからんからとりあえずA列からF列までを対象にしてる)。
Sub 列を非表示()
Dim i As Long
For i = 1 To 6
If Cells(1, i) = 0 And Cells(1, i).HasFormula = True Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
sum関数かどうかまでは判定していないから
sum関数以外の関数が入っていてその値が0なら
その列も非表示になる。
後はどのセルに関数が入っているかわからんから
そこらへんは調整してくれ。
300:デフォルトの名無しさん
23/03/14 20:42:07.34 goR8feNU.net
セルを非表示 という書き方が戸惑う元だけど
>>290 の二行目に書いた Sheet上の0の値を[0]表示させない方法ではダメなのか？
SUMの結果が0のケースでも、0とは表示されず空白になるんだが？
セルの書式設定で ;;; にすることでセルの非表示ということらしいが、結果は変わるのか？
手元のExcelで試しているけど、どういう結果が欲しいのか分からんから戸惑ってる
わざわざ空白セルも非表示にする必要がさっぱりわからん 背景色とかが絡んで来る？ 印刷時？
301:デフォルトの名無しさん
23/03/14 20:51:19.35 28TiEHhw.net
>>295様
これが具体的なＶＢＡコードですね！ありがとうございます。
説明不足でややこしくてすみません。
とりあえず、本やネットを見ながらコードを参考にし、実践
してみようと思います。皆様ありがとうございました。
302:デフォルトの名無しさん
23/03/14 21:06:36.93 28TiEHhw.net
>>296様
おっしゃる通りで、表示させない方法で空白になりました。;;を使っても０が表示されず、
空白になります。この状態で、行の一定の範囲を選択して、選択オプションで「空白セル」
にチェックを入れます。しかし、「ＳＵＭ関数かつ空白」が選択されず、列を非表示に
できません。ＳＵＭ関数があると空白と認識されないようです。
>>わざわざ空白セルも非表示にする必要がさっぱりわからん 印刷時？
おっしゃる通りです。空白のセル（列）を非表示にし、印刷しないためです。
303:デフォルトの名無しさん
23/03/14 23:37:15.42 WthbhZLX.net
聞く方も答える方も馬鹿で頭が痛くなる
このスレを立てた奴の頭のレベルの程度のせいか？
304:デフォルトの名無しさん
23/03/15 00:01:55.44 Ogi5eYUO.net
>>299みたいなのが賢いムーブなんですね、参考になります
305:デフォルトの名無しさん
23/03/15 07:40:00.44 dWb1Fnpz.net
送られてきたEXCELファイルの特定のセルにある文字列や数値を別のブックにある表シート(特定のセル)に反映させてデータを自動集計したい。
この場合どのようなコードが必要ですか？
306:デフォルトの名無しさん
23/03/15 10:52:57.27 bng7Ef1J.net
>>299
なぜ馬鹿の質問に馬鹿が答えてるのを見るとお前の頭が痛くなるのか因果関係を説明せよ
>>301
全然わからないならあきらめるか、初心者向けの本でも読んでもう少し自力でできるようになってからだな
307:デフォルトの名無しさん
23/03/15 12:05:57.01 VvC5BQRV.net
>>301
そういうのは今はChatGPTに聞いた方が早いかと。
その質問をそのままコピペ、VBAのコードでと聞いたらこんな風に返ってきた。
VBAを使用して、Excelファイルから特定のセルの値を抽出し、別のブックにある特定のセルに値を反映させるには、以下のようなコードを使用できます。
Sub copyCellValue()
Dim srcBook As Workbook
Dim destBook As Workbook
Dim srcSheet As Worksheet
Dim destSheet As Worksheet
Dim srcRange As Range
Dim destRange As Range
'コピー元のブック、シート、セルを指定
Set srcBook = Workbooks.Open("path/to/source_file.xlsx")
Set srcSheet = srcBook.Worksheets("Sheet1")
Set srcRange = srcSheet.Range("A1")
'コピー先のブック、シート、セルを指定
Set destBook = Workbooks.Open("path/to/destination_file.xlsx")
Set destSheet = destBook.Worksheets("Sheet1")
Set destRange = destSheet.Range("B2")
'コピー元のセルの値をコピー先のセルに反映
destRange.Value = srcRange.Value
'ブックを閉じる
srcBook.Close
destBook.Close
End Sub
308:デフォルトの名無しさん
23/03/15 13:19:10.47 jS5g/06S.net
chatGPTの亜流がどんどんでてきたな
URLﾘﾝｸ(ronpagpt.jp)
309:デフォルトの名無しさん
23/03/15 14:24:15.02 /7ImdP24.net
>>303 AIはすごいね AIはさすがだよ AIにその回答を導き出させた>>303はもっとすごい
310:デフォルトの名無しさん
23/03/15 17:36:50.88 d5qN4lxo.net
>>305
要件を満たしていないだろ
お前、このスレを立てた零細企業のバカだろ
311:デフォルトの名無しさん
23/03/15 18:04:03.00 /7ImdP24.net
いや、AIはすごいんだって だってたちどころに回答するんだぜ？
どんな難問投げ掛けられたって、おちゃのこさいさいで即座にだよ？すごいじゃないか
やっぱAIには敵わないね でもそのAIを容易に使いこなせる>>303は、ほんとすごいんだよ
こかれらもこまったことがおきたらぜんぶ>>303にそうだんすればいいよ ぜんぶアッ！といまうだよ
>>303そこがかみだよだってAIあつやれるんだのもきとっすいごおきゅりうょうもっらてんるだろ
312:デフォルトの名無しさん
23/03/15 18:41:01.53 X44VfF2/.net
やっぱり零細企業の馬鹿本人かよ
313:デフォルトの名無しさん
23/03/15 19:56:07.69 cZ1DNOu4.net
>>296様 皆様
やっと「ＳＵＭ関数かつ０が表示」を選択する事が
できました!!!これでムダな列を自動的に非表示にできます。
①一定の範囲のセルを選択 ②検索で「０」の値を検索
③検索結果をクリック ④ctrl+Aですべてを選択
大変お騒がせ致しました。本当にありがとうございました。
314:デフォルトの名無しさん
23/03/15 20:16:56.49 /7ImdP24.net
やりたいことが分かってから意見書くのも、なんか憚られるが
それ、横方向に並べ替えすれば合計欄0のだけ端っこにまとまるから、それで一気に列の非表示すればよくね？
元データが料理の種別とかで固定だから並べ替えなんか「成りません！」てなら別だけど
それでも何かを基準に左に詰めたりできそうな気がするんだが
URLﾘﾝｸ(sakusaku-office.com)
URLﾘﾝｸ(webpt.jp)
315:デフォルトの名無しさん
23/03/15 20:47:00.15 V0E4/N1Q.net
馬鹿が考える方法は馬鹿な頭から出てくる馬鹿な方法だからまともに相手にするのが間違い
馬鹿が質問すると荒れるから迷惑
316:デフォルトの名無しさん
23/03/15 21:59:25.48 jS5g/06S.net
>>307
そのAIから
URLﾘﾝｸ(i.imgur.com)
317:デフォルトの名無しさん
23/03/15 23:05:20.69 xu8ICwau.net
ジジババって最新の技術をすぐ小馬鹿にするよね？
318:デフォルトの名無しさん
23/03/15 23:58:49.40 cjZorZVQ.net
最近の馬鹿って自分が馬鹿なことに気づかないの？
319:デフォルトの名無しさん
23/03/16 00:27:14.17 434mvrOL.net
>>312
ワロス
320:デフォルトの名無しさん
23/03/16 02:07:32.51 B5SNFDHd.net
さっきから何あぼーんの嵐(笑)
321:デフォルトの名無しさん
23/03/16 10:36:22.46 N2/NSeFa.net
馬鹿はエントロピーが大きい状態
エントロピー増大の法則
322:デフォルトの名無しさん
23/03/16 11:33:40.43 w6mQ50Ij.net
コードの保存はどうしている？
ChatGPTで色々と変更しながら書いてもらっているけど、過去のも残しておきたいが
ぐちゃぐちゃになっている。
323:デフォルトの名無しさん
23/03/16 11:38:54.15 6Wkwlpg5.net
そこにメモ帳があるだろ
324:デフォルトの名無しさん
23/03/16 13:04:45.51 s5XEFQZu.net
>>318
毎回最初から最後まで書いてもらえばいい
もう保存とかアホらしくなってきた
325:デフォルトの名無しさん
23/03/16 15:49:40.74 hTqOV0Oo.net
間違えた回答をありがたく保存するのかよ
326:デフォルトの名無しさん
23/03/16 17:03:31.67 pLTmwSf1.net
VBA で1を1stに変換する関数ないの？
327:デフォルトの名無しさん
23/03/16 17:49:19.70 dPl9ROvM.net
Excel VBAにはない
Access VBAなら専用の関数がある
328:デフォルトの名無しさん
23/03/16 18:00:58.62 Loiq54un.net
>>322
VBAでよければ
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
ちえぶくろだけど ７年前
329:デフォルトの名無しさん
23/03/16 21:12:18.58 wf1v+CLj.net
>>322
ワークシート関数で出来るらしい。
=A1&IF(OR(MOD(A1,100)={11,12,13}),"th",CHOOSE(MIN(5,RIGHT(A1)+1),"th","st","nd","rd","th"))
20までならもっと簡単になるみたいで。
=A1&LOOKUP(A1,{0,1,2,3,4;"th","st","nd","rd","th"})
上記の数式をVBAからWorksheetFunction関数で使う手も。
330:デフォルトの名無しさん
23/03/18 21:04:59.58 Rz29PTI+.net
>>322
どこまでの値をカバーするか、どういうデータか、によっては、既に書かれているとおりワークシート関数でも事足りるよ
なお本当に1を1stにするだけだったらワークシート関数のSUBSTITUTE使えばいい
331:デフォルトの名無しさん
23/03/18 21:17:55.87 Za4MxO2H.net
1 → 1st
11 → 1st1st
101 → 1st01st
332:デフォルトの名無しさん
23/03/18 21:57:25.24 AwqZu1PH.net
スクショを貼り付けしてトリミングするまでのマクロ使ってるんですが
トリミングした不要な部分を削除
を追加する事ってできますか？
333:デフォルトの名無しさん
23/03/18 22:53:09.64 X3/sx5T9.net
マクロでやる必要ある？
334:デフォルトの名無しさん
23/03/19 10:30:21.74 fsx9oQpt.net
>>329
毎回、図のトリミング部分を削除するのが手間でマクロでやってしまいたい
335:デフォルトの名無しさん
23/03/19 11:14:17.24 T5Hyor/5.net
［Win］+［Shift］+［S］キー とかでスクショ撮る前に切り取れば？
>トリミングした不要な部分を削除を追加する というのがよく分からんが
うっかり�
336:gリミングしたけど元に戻したいとか？ https://itojisan.xyz/settings/25094/ キャプチャの再考も必要かも
337:デフォルトの名無しさん
23/03/19 13:05:56.53 fsx9oQpt.net
スクショするコードと下のコード繋げて貼り付けてるんだけどその後に図のトリミング部分を削除を毎回手動でやってるんだけど
その手間を無くせないかなと思って
Sub 貼り付け()
Range("A6").Select
ActiveSheet.Paste
Application.CommandBars("Format Object").Visible = False
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 126.5453543307
Selection.ShapeRange.ScaleWidth 0.5493110633, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8437515373, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 324
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -63
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 28.3636220472
Selection.ShapeRange.IncrementTop 0.00007874015748
Selection.ShapeRange.ScaleWidth 0.9641379475, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9259154745, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 310
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -37
Selection.Placement = xlFreeFloating
Selection.ShapeRange.LockAspectRatio = msoTrue
Range("A10").Select
ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化
End Sub
338:デフォルトの名無しさん
23/03/19 18:29:45.55 M92RK9ru.net
あなたの言うトリミングとは何なのか
トリミング＝不要な部分の削除ではないのか
というところから、どうぞ
339:デフォルトの名無しさん
23/03/19 19:21:57.35 +3/waKCo.net
>>333
図の圧縮のトリミングをvbaでやりたいけどコードが分からないんだろう
340:デフォルトの名無しさん
23/03/19 21:50:22.00 fsx9oQpt.net
いやだから図のトリミング部分を削除したいと言うてるわけです
341:デフォルトの名無しさん
23/03/19 22:16:16.30 N8t0mUor.net
いやだからわざわざマクロでやる必要ないでしょ？
コード書いてるより手動でやった方が早いのでは？
342:デフォルトの名無しさん
23/03/19 22:33:34.30 fsx9oQpt.net
頻度が多いのよ
図の形式からいちいち削除する手間を無くして
貼ったと同時に不要なトリム部分を削除したい
ネットで見てもなかなか載ってない
343:デフォルトの名無しさん
23/03/19 22:39:45.16 +3/waKCo.net
>>332
いやお前ら、
図の圧縮のトリミングをマクロでやる方法があるならそれを教えてあげなよ
俺はわからなかった。マクロの記録にもない
何パターンか
・図の圧縮をキーマクロにする
個人的には全くオススメしない
URLﾘﾝｸ(yaromai.jp)
・別ソフトを使う
pictcutterとか
ドラッグアンドドロップで処理できる
マクロでどうこうするより早い
・別アプリと連携する
imagemagickがvbaと連携できる
かなりしんどいけど、imagemagickは有名なソフトでかなり色々できる
急がないならかなりお勧め。知っていれば画像に関することはほぼなんでもできるようになる
URLﾘﾝｸ(qiita.com)
344:デフォルトの名無しさん
23/03/19 22:45:35.69 M92RK9ru.net
こんな感じ？
Set shape1 = ActiveSheet.Shapes(1)
shape1.Copy
ActiveSheet.PasteSpecial Format:="図 (PNG)"
Set shape2 = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
shape2.Left = shape1.Left
shape2.Top = shape1.Top
shape1.Delete
345:デフォルトの名無しさん
23/03/20 08:19:41.94 K5H+7bLz.net
>>338
ありがとう、会社PCだからソフトやアプリを簡単に申請して入れられないんだ
>>339
まじすげぇです、
完全に求めていた事が出来た
本当に心から感謝
マジでありがとう
346:デフォルトの名無しさん
23/03/20 08:22:41.79 K5H+7bLz.net
いや、マジ凄い
素人ながら結構ネットで検索してたのに
実現は無理なんかなと諦めてた
本当に本当にありがとう
すげえ
347:デフォルトの名無しさん
23/03/21 01:10:26.57 2GJP0s5v.net
惚れちゃうよね
348:デフォルトの名無しさん
23/03/21 07:03:36.10 bl4/liXV.net
濡れる
349:デフォルトの名無しさん
23/03/21 10:12:48.44 PCjca3J8.net
人間chatgpt認定
350:デフォルトの名無しさん
23/03/21 23:13:02.09 QiPSaXn9.net
ワイはエクセルのイルカ
何でも質問してええよ
351:デフォルトの名無しさん
23/03/21 23:23:48.95 kDcUmgO1.net
お前を消す方法
352:デフォルトの名無しさん
23/03/21 23:34:19.90 PCjca3J8.net
サエコ先生？アシスタントだっけ？
あれもリストラされたよね
353:デフォルトの名無しさん
23/03/24 08:20:34.18 1yrWyKZ9.net
【本当にあった怖いVBA】
Enum SDigit
SList = 2
SOutput
End enum
sub test()
set wsh = Thisworkbook.WorkSheets(SName(SList)))
End sub
↑お、SNameがシート名配列か？
Function SName(FDigit As SDigit)
SName = LSheet.Cells(FDigit, 2).Value
End Function
↑ん？
Function LSheet()
Set LSheet = Thisworkbook.WorkSheets("一覧表")
End Function
↑？？？？？？？？？
354:デフォルトの名無しさん
23/03/24 08:59:41.03 y9S7Bvf0.net
set wsh = Thisworkbook.WorkSheets(FDigit)
でええがな
355:デフォルトの名無しさん
23/03/24 10:27:19.17 mGsBzzaU.net
いや待て
ひょっとすると
Function Lsheetは
実は別クラスに書いてあって
インターフェースを介在して
取ってきているのかもしれないぞ。
そしたら場合によっては
そんな記載になることも
ないとは言い切れない。
356:デフォルトの名無しさん
23/03/24 10:44:43.79 FUl1ABhx.net
いやどれも同じ標準モジュール
一覧表シートに載ってる表(A列がブックのパス、B列がシート名みたいな)の値を取るだけだったから
Set Wbo = WorkBooks.Open( SPath( SOutput) )
Set Wsh = Wbo.WorkSheets( SName( SOutput) )
みたいな記述もある(SpathはLSheetのA列から取ってくる)
コメント0でなんでこんな記述してるのかも定数や配列にしてないのかも分からん
357:デフォルトの名無しさん
23/03/24 11:25:35.61 1rbGFcof.net
変数名にwshは感心しない
斜め読みだと外部スクリプトでも呼んでるのかと勘違いする
358:デフォルトの名無しさん
23/03/24 11:57:47.57 y9S7Bvf0.net
>>352
それはかなり思う。いつも少しひっかかる
359:デフォルトの名無しさん
23/03/24 12:03:58.85 MDleo4Zx.net
古き良きハンガリアン風に
WB_[ブックの役割名]
WS_[シートの役割名]
とかかな。
360:デフォルトの名無しさん
23/03/24 12:10:10.68 anQmlZ/+.net
俺はxla, xlb, xls
361:348
23/03/24 12:14:05.32 FUl1ABhx.net
さすがにシートの変数名は変えてあるわ
定数で済むものをシートからの取得にしたり
シートからの取得方法が関数の多重呼び出しだったり
呼び出し先の関数ではシート名直打ちだったり
関数が配列みたいな名前だったり
呼び出しの引数がユーザー定義型だったりで
可読性最悪なクソコードなんだよ
362:デフォルトの名無しさん
23/03/24 12:19:18.16 anQmlZ/+.net
定数(変数)をまとめたシートはよく作るな
363:348
23/03/24 12:31:11.37 FUl1ABhx.net
>>357
今後マクロを読む引き継ぎ先に向けてのシートだろ？
マクロ内での定数宣言で問題ないのに
わざわざシートから参照する方式で難解にする意味が分からん
百歩譲ってそこを許すとしても
一覧表シートの指定はLSheet関数じゃなくて
SPath、SName内でWorksheets(シート名定数)だろ
364:デフォルトの名無しさん
23/03/24 12:35:33.80 DAz6UNB2.net
変数を日本語（漢字）で宣言してるわ…
いけないのはわかってるけどメンテナンスする時に楽だから…
Dim 列 As Range
Dim 行 As Range
365:デフォルトの名無しさん
23/03/24 12:37:59.55 mGsBzzaU.net
>>359
ちょっと待て
列や行をの型がRange？
どういう状況なんだ？
366:デフォルトの名無しさん
23/03/24 12:41:59.41 FUl1ABhx.net
>>360
表かなんかの取得で列や行の一部しか入れないんでねーの
行 = Range(A1:C1)みたいな
367:デフォルトの名無しさん
23/03/24 13:15:09.00 anQmlZ/+.net
>>358
値の取得は Range("設定!名前")
ファイル名やら出力先シート名とかね
ダイアログの代わりみたいなもんか
368:デフォルトの名無しさん
23/03/24 13:36:50.23 mGsBzzaU.net
なるほど
したっけ変数名は「行取得セル」とかにした方がいいだろな
369:348
23/03/24 14:11:44.49 FUl1ABhx.net
>>362
結局なんでマクロ上に定数で書くんじゃなくシートから持ってきてるんだよ
370:デフォルトの名無しさん
23/03/24 15:27:24.94 NHu64AvA.net
>>363
北海道民か
371:デフォルトの名無しさん
23/03/24 15:59:07.20 anQmlZ/+.net
>>364
設定ダイアログの代わりにワークシートを使っています。
これでいい？
372:デフォルトの名無しさん
23/03/24 16:49:43.95 mGsBzzaU.net
>>366
なら、セルひとつで済むんじゃないの？
対象セルに入力規制掛けてリスト化してしまえば。
373:デフォルトの名無しさん
23/03/24 17:41:36.37 5t6vPIej.net
>>367
そうだね
ほとんどは1つのセルにそれぞれ名前を付けてるね
まあオレがそうしてるだけでゴリ押ししてるわけじゃないからな
無駄だ！と言われればそうですねとしか答えられない