Excel VBA 質問スレ Part79

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 02/26 16:42 / Filesize : 257 KB / Number-of Response : 1014
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 11:46:47.21 ID:mBQ16TA8.net]: ↑同じ内容を3行貼り付けること

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

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

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

-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
237 名前：デフォルトの名無しさん [2023/02/26(日) 01:36:14.44 ID:tp9OjsHC.net]: >>231
これをバグだと思うお前の頭がおかしい
238 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 05:06:33.26 ID:eudL/KWJ.net]: >>230
あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。
社会に出ればこんなの当たり前だから。
人よりも仕事は早くこなして次のタスクを行う。
そうやって「評価」というものを受け取れるんだよ。
239 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 08:24:55.67 ID:ohKfmJY8.net]: >>230
処世術を知らんのか
240 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 08:53:33.45 ID:eudL/KWJ.net]: 相手しない方が良いよ。
何せ社会を知らない奴なんだから。
241 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 14:38:38.79 ID:3Cr/hlVm.net]: >>234
自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。
仕事は自分で見つけるもんやで？
そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん
242 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 16:26:56.12 ID:eudL/KWJ.net]: 本当に社会知らないんだな？
>>237
自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」
て言われるのが社会なんだよ。
良く覚えとけよ。
243 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 21:51:00.91 ID:fkbOU0Ua.net]: >>216
今日になって気付いた
戻り値は4バイト整数だったごめん…
244 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 15:08:20.31 ID:NXRHGwBO.net]: >>238
世渡り上手で仕事せずともいられるって人もいるけどな
前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、
こういう漫画みたいな人いるんだなーと思った

レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか
245 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 16:02:16.29 ID:chlNPmFa.net]: すげえww罪悪感のカケラもないその神経を見習いたいわ。
まあ、環境にもよるんだろうね。
自分の職場はみなクッソ真面目の堅物ばかり。
246 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 16:07:15.89 ID:YzUXpdVm.net]: そんな人がこんなスレ訪問するはず無いだろ　そんなヒマあったらサボってる
247 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 03:52:23.34 ID:wSjrNglr.net]: ヒマがあったらサボってる？
普通に考えればサボっているからヒマになるのでは？
248 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 06:53:32.06 ID:J6gUWTNI.net]: お、おう。
249 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 11:19:20.68 ID:iwViG7Fn.net]: せめてヒマの意味調べようよ　意味も知らずに話ししてんのか　そりゃあ、話し掛けられた相手も困惑することだろうに
250 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 02:31:42.07 ID:LaDEEyjy.net]: にほんごほうかい
251 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 07:47:29.44 ID:E3REpsyj.net]: まったく最近の老害ときたら…
252 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 12:40:49.00 ID:/y/rr2Lo.net]: 逆に若い方が間違った日本語を平気で使ってるよ
勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね
253 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 15:00:36.88 ID:LaDEEyjy.net]: いや、最近の若いのは分別しっかりしているでしょ。
年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？
254 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 15:14:44.70 ID:an7QtCXR.net]: 老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる
255 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 18:54:13.51 ID:/y/rr2Lo.net]: 政治家の老害の方が酷いから社内で経験のある定年前のおっさん程度なら気にならんよ
256 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 23:49:56.23 ID:k/H9X4nF.net]: 若者はとか年寄りはという括りで決めてしまうことに何の疑問も持たないのが不思議でな
解ってて話しているならいいけど本気で言ってそう
257 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 07:57:41.77 ID:8//TjMOu.net]: 若者だろうが年寄りだろうが関係なくね？
若者でもダメなヤツはダメだし年寄りでもめっちゃリスペクトできる人もいるしな。
258 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 13:24:30.21 ID:HiKr/1U9.net]: 普段何を見て育ってきたかが違いすぎて関係ないなんてことはないと思うなあ
259 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 14:32:34.86 ID:nF/g30df.net]: 周りにダメな奴がいてダメでない奴もいるとして
その中で自分がダメな奴と一緒になるのか、ダメにならない様に努力するのかが重要になってくる
それと明らかに攻撃してくる相手なら敵と認識して反撃もやむをえない
260 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 15:11:12.05 ID:8//TjMOu.net]: 悪かった
年寄りで１番タチ悪いクセは、大人しいタイプで反抗してこない若者をいじめるクセがあるのは何回も見ている。
それはダメだわな。
261 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 15:37:01.51 ID:z+cjlQY2.net]: ここは>>1がじぶんのために立てたスレッドだが、彼は仕事が出来ないのがバレてクビに成ったのか？
丸々一ヶ月音信不通だが　本を一所懸命に読んでる真っ最中なのか？
262 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 19:52:37.48 ID:nF/g30df.net]: >>256
与党が少数意見を無視して増税してきたのは何回も見ている
見ているだけだから問題ないのかな？
263 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 21:46:53.40 ID:h6QEfyIh.net]: ここ何のスレだっけ
264 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 03:17:25.93 ID:d3m+m4y0.net]: >>259
クソスレ
265 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 17:06:46.67 ID:vENEE6dG.net]: 985 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 11:47:07.68 ID:mBQ16TA8r [9/9]
はい建てた
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/

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 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 01:00:13.14 ID:1WgjQ7Bk.net]: そのうちここもあぼーんの嵐になるわさ
267 名前：あはーん [2023/03/08(水) 20:49:17.55 ID:szyRCS8l.net]: あはーん
268 名前：デフォルトの名無しさん mailto:sage [2023/03/09(木) 00:30:01.95 ID:D1VDY6UW.net]: おぼーん
269 名前：150 mailto:sage [2023/03/10(金) 12:55:22.35 ID:QfDmbcex.net]: =if(isnumber(match(b1,a5:a31,0)),"ok","bad")
これをVBAで実現するにはどうすればいいか教えて欲しいです
270 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 20:00:52.25 ID:eEaylvqx.net]: >>265
その式で希望通りの結果ならそのままのほうがいいよ
271 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 20:37:16.92 ID:iWPdLzMM.net]: わざわざVBAでやる必要ないモノは関数で良いしね
272 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 21:01:29.17 ID:WMCxZwMq.net]: worksheetfunctionで済むならその方がいいよ
最終的に実現したい方法を教えてくれるか
それとも単純にvbaでどうなるか知りたいかならそういってもらえれば
273 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 21:50:33.66 ID:IaGJxF6U.net]: ChatGPTへ条件を指定するの難しい・・・
日本語が下手で嫌になる

分かりやすいサイトとかyoutubeチャンネルとかある？
274 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 22:56:34.60 ID:WMCxZwMq.net]: >>269
日本語が下手ならchatgptに推敲してもらえばいい

ってかそもそもChatGPTはそもそもコード生成向いていない
ChatGPTのエンジンはgpt-3
本当にコード生成に向いているエンジンはcodex
275 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 04:47:16.82 ID:ZWvVNp1O.net]: ChatGptが作ったコード、なかなかいい感じだが
276 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 14:42:28.64 ID:SdsqzSUo.net]: 使いたければ使っていればいい、よそのスレで宣伝する必要なくね
277 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 15:31:38.67 ID:QVD3K1L3.net]: ここは1000行ったらもうそれっきりのスレだから　雑談してりゃいいんだ
278 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 17:37:12.30 ID:GdTACZTW.net]: VBAコードをカラー印刷する方法はありますか？
パソコンで見ると目が疲れるし、気付きにくいこともあるので紙で見たいのです。
279 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 17:59:17.42 ID:QVD3K1L3.net]: やれやれ
https://forest.watch.impress.co.jp/docs/news/609605.html
おまけ
https://excelshogikan.com/tips/tips115.html
もひとつ
https://tonari-it.com/excel-vba-vbe-syntax-highlight/
もいっちょ
https://koukimra.com/archives/545
なんか、いっぱい出て来る
https://excel.syogyoumujou.com/freesoft/vba_to_html.html

VBEの[ツール]－[オプション]－[エディタの設定]でも、フォントを濃い色にしとかないと印刷しても薄っすいだろうけど
それすると今度は画面がギラついて目に優しくない状況に陥ったりするだろうし　いろいろ試して自分の好みで
280 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 20:46:11.23 ID:GdTACZTW.net]: >>275
たくさん貼っていただきありがとうございます。
2番目のツールはHTML化で変換出来なかったんですよね。

最後のアドインのだけカラーで出来るようなのでこちらを使ってみます。
281 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 20:32:20.84 ID:VmVu1UJJ.net]: ChatGPTにVBAでこんな感じに出来ませんか？と質問するとしっかりとしたコードを書いてくれる
282 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 21:20:54.07 ID:pwuv7WPr.net]: Chatgptが普及すれば初級者とか関係なく誰でも高度な事ができるようになるよね。
もはや「Excelできまーす！高度なコード書けまーす！」が通用しなくなる時代が来つつあるな。
283 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 21:34:37.42 ID:rU40dayx.net]: このスレのスレ立て人ディスってんのか？
Excelできます枠で中途入社しときながら、まるきしわからんちんでExcel VBAスレに泣き付いて
質問をキッカケに主人公にでも成ったかのような勘違いしてこの無駄スレ立ててしまった伝説のあいつを？
284 名前：デフォルトの名無しさん [2023/03/13(月) 21:35:17.25 ID:+WoIzVW7.net]: 零細企業のVBAすら書けない無能には間違いがあってもわからんだろうがな
285 名前：デフォルトの名無しさん [2023/03/14(火) 12:24:47.61 ID:LCy+s25l.net]: これからはリストラが大量に出るだろうね
エクセルの先生()からプログラマー()までPCとにらめっこする仕事は全部ChatGPTで済む虚業ってバレたんだから
286 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 12:37:28.99 ID:goR8feNU.net]: そう思い込むことで、カキコ本人にはどんなメリットがあるんだ？
個人の感想でしかないものにすがるしか、自我を保てないンか？
そんなメンタルならExcel使う事を辞めた方がいいぞ？
そんな得体の知れないものに頼らざるを得ない企業も長続きはしなくなるだろ
会議の席にAI同席させるンか？
287 名前：デフォルトの名無しさん [2023/03/14(火) 12:47:00.26 ID:LCy+s25l.net]: AIに任せるようになった企業が長続きしないというのはそちらの感想だよね
会議にAIも参加させられない企業と会議にAIが参加できる企業のどちらに柔軟性があるかは明白
288 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 12:51:49.78 ID:IeRCsjIL.net]: AIも道具の一つに過ぎない
289 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:06:56.83 ID:goR8feNU.net]: 長年いろんな企業を見てきた経験からだ　個人の感想じゃねえ
マンパワーの重要性を認識できない上の方が居たら、大抵足許から崩れてく
会議の席でAIが「できます」っつったら任せるのか？それでコケた場合誰が責任取るんだ？
絵空事夢見て妄想に浸るのは勝手だが、企業もいきもの　維持し続けるための道具としてなら
使いたきゃ使えばいいが、病んだ時のリカバリーにはどうしても人の手は必要（当面は）

例えば、悪天候で電車止まった、架線が切れたようだ　四六時中稼働できる修理ロボットの出番だ！　なんて時代はまだまだ先
必死でそういう時代が来るよう努力し続けるのは否定しないが、どうせそうなるんだから今から仕事放棄　は、ただのあほう
290 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:27:13.02 ID:ZglUMoKm.net]: 理性的に考えれば今の時代は暗黒だから冷凍人間にでもなって輝かしい未来に解凍してもらうのが正解
291 名前：デフォルトの名無しさん [2023/03/14(火) 13:30:38.03 ID:LCy+s25l.net]: 今置き換えられるのはPCとにらめっこする仕事って限定してるんだが
勝手に読み替えられても困る
292 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:49:04.92 ID:2BnTQRjU.net]: これだけは言える
そこらの並のPC教室や素人に毛が生えたインストラクター(笑)は間違いなく淘汰される。
293 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 14:25:56.84 ID:28TiEHhw.net]: こちらでよろしいでしょうか。すみません。

エクセルで、
「ＳＵＭ関数」かつ「０が表示」のセルを、
選択する事は可能でしょうか。
294 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 16:50:49.76 ID:goR8feNU.net]: [ホーム]タブにある「検索と選択」で、検索をクリックして、検索する文字列に SUM ではダメなのか？
[ファイル]の[オプション]、[詳細設定]で □ ゼロ値のセルにゼロを表示する(Z)のチェックに限らず
=SUM( のセルを次々選択してくれるが？　"かつ" の条件を満たさないとどうしてもイヤ！なのか？
Sheetの至る所に＝SUM( がありまくりで絞り込みたいとか？　「0が表示」という日本語も変だけど
[オプション]での設定はBook全部に影響したと思うのだが
295 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 17:40:35.43 ID:+v1A3gMG.net]: >>285
経験なんて個人の感想の寄せ集めだぞ
同レベルの概念とわかってない時点で論外、やり直し
296 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 18:40:07.15 ID:1O8NxYp2.net]: >>289
フィルタで0を指定してからsumで検索すれば行けそう
297 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 19:37:13.34 ID:28TiEHhw.net]: >>290様
仕事で、料理の数の合計を出しています。料理の数の入力が
ないセルは「空白」ですから、選択オプションで「空白セル」を
チェックし、「空白のセル（列）」をすべて非表示にできました。

最後は、自動で「ＳＵＭ関数」かつ「（合計が）０の表示」のセルを
選択し、セル（列）を非表示にしたいのです。手動でやれよって話
かもしれませんが、マクロで自動化ってできるものなのでしょうか。
298 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:05:55.83 ID:28TiEHhw.net]: >>292様

>>フィルタで0を指定してからsumで検索すれば行けそう
確認しました。列にならできると思います。しかし、
行方向のセルにフィルタをかける事はできませんでした。

行の一定の範囲のセルを選択したいです。行にフィルタを
かける事はできませんでした。行と列を入れ替えて、列に
フィルタをかけ、最後に行と列を入れ替えたらよいですか。
299 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:38:11.33 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:42:07.34 ID:goR8feNU.net]: セルを非表示　という書き方が戸惑う元だけど
>>290 の二行目に書いた　Sheet上の0の値を[0]表示させない方法ではダメなのか？
SUMの結果が0のケースでも、0とは表示されず空白になるんだが？

セルの書式設定で ;;; にすることでセルの非表示ということらしいが、結果は変わるのか？
手元のExcelで試しているけど、どういう結果が欲しいのか分からんから戸惑ってる
わざわざ空白セルも非表示にする必要がさっぱりわからん　背景色とかが絡んで来る？　印刷時？
301 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:51:19.35 ID:28TiEHhw.net]: >>295様

これが具体的なＶＢＡコードですね！ありがとうございます。
説明不足でややこしくてすみません。
とりあえず、本やネットを見ながらコードを参考にし、実践
してみようと思います。皆様ありがとうございました。
302 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 21:06:36.93 ID:28TiEHhw.net]: >>296様
おっしゃる通りで、表示させない方法で空白になりました。;;を使っても０が表示されず、
空白になります。この状態で、行の一定の範囲を選択して、選択オプションで「空白セル」
にチェックを入れます。しかし、「ＳＵＭ関数かつ空白」が選択されず、列を非表示に
できません。ＳＵＭ関数があると空白と認識されないようです。

>>わざわざ空白セルも非表示にする必要がさっぱりわからん　印刷時？
おっしゃる通りです。空白のセル（列）を非表示にし、印刷しないためです。
303 名前：デフォルトの名無しさん [2023/03/14(火) 23:37:15.42 ID:WthbhZLX.net]: 聞く方も答える方も馬鹿で頭が痛くなる
このスレを立てた奴の頭のレベルの程度のせいか？
304 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 00:01:55.44 ID:Ogi5eYUO.net]: >>299みたいなのが賢いムーブなんですね、参考になります
305 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 07:40:00.44 ID:dWb1Fnpz.net]: 送られてきたEXCELファイルの特定のセルにある文字列や数値を別のブックにある表シート(特定のセル)に反映させてデータを自動集計したい。
この場合どのようなコードが必要ですか？
306 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 10:52:57.27 ID:bng7Ef1J.net]: >>299
なぜ馬鹿の質問に馬鹿が答えてるのを見るとお前の頭が痛くなるのか因果関係を説明せよ

>>301
全然わからないならあきらめるか、初心者向けの本でも読んでもう少し自力でできるようになってからだな
307 名前：デフォルトの名無しさん [2023/03/15(水) 12:05:57.01 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 13:19:10.47 ID:jS5g/06S.net]: chatGPTの亜流がどんどんでてきたな
https://ronpagpt.jp/
309 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 14:24:15.02 ID:/7ImdP24.net]: >>303　AIはすごいね　AIはさすがだよ　AIにその回答を導き出させた>>303はもっとすごい
310 名前：デフォルトの名無しさん [2023/03/15(水) 17:36:50.88 ID:d5qN4lxo.net]: >>305
要件を満たしていないだろ
お前、このスレを立てた零細企業のバカだろ
311 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 18:04:03.00 ID:/7ImdP24.net]: いや、AIはすごいんだって　だってたちどころに回答するんだぜ？
どんな難問投げ掛けられたって、おちゃのこさいさいで即座にだよ？すごいじゃないか
やっぱAIには敵わないね　でもそのAIを容易に使いこなせる>>303は、ほんとすごいんだよ
こかれらもこまったことがおきたらぜんぶ>>303にそうだんすればいいよ　ぜんぶアッ！といまうだよ
>>303そこがかみだよだってAIあつやれるんだのもきとっすいごおきゅりうょうもっらてんるだろ
312 名前：デフォルトの名無しさん [2023/03/15(水) 18:41:01.53 ID:X44VfF2/.net]: やっぱり零細企業の馬鹿本人かよ
313 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 19:56:07.69 ID:cZ1DNOu4.net]: >>296様　皆様
やっと「ＳＵＭ関数かつ０が表示」を選択する事が
できました!!!これでムダな列を自動的に非表示にできます。
①一定の範囲のセルを選択　②検索で「０」の値を検索
③検索結果をクリック　④ctrl+Aですべてを選択　

大変お騒がせ致しました。本当にありがとうございました。
314 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 20:16:56.49 ID:/7ImdP24.net]: やりたいことが分かってから意見書くのも、なんか憚られるが
それ、横方向に並べ替えすれば合計欄0のだけ端っこにまとまるから、それで一気に列の非表示すればよくね？
元データが料理の種別とかで固定だから並べ替えなんか「成りません！」てなら別だけど
それでも何かを基準に左に詰めたりできそうな気がするんだが
https://sakusaku-office.com/excel/post-9111/
https://webpt.jp/blog/excel/excel-across-sort/
315 名前：デフォルトの名無しさん [2023/03/15(水) 20:47:00.15 ID:V0E4/N1Q.net]: 馬鹿が考える方法は馬鹿な頭から出てくる馬鹿な方法だからまともに相手にするのが間違い
馬鹿が質問すると荒れるから迷惑
316 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 21:59:25.48 ID:jS5g/06S.net]: >>307
そのAIから
https://i.imgur.com/XaCp34O.png
317 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 23:05:20.69 ID:xu8ICwau.net]: ジジババって最新の技術をすぐ小馬鹿にするよね？
318 名前：デフォルトの名無しさん [2023/03/15(水) 23:58:49.40 ID:cjZorZVQ.net]: 最近の馬鹿って自分が馬鹿なことに気づかないの？
319 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 00:27:14.17 ID:434mvrOL.net]: >>312
ワロス
320 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 02:07:32.51 ID:B5SNFDHd.net]: さっきから何あぼーんの嵐(笑)
321 名前：デフォルトの名無しさん [2023/03/16(木) 10:36:22.46 ID:N2/NSeFa.net]: 馬鹿はエントロピーが大きい状態
エントロピー増大の法則
322 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 11:33:40.43 ID:w6mQ50Ij.net]: コードの保存はどうしている？
ChatGPTで色々と変更しながら書いてもらっているけど、過去のも残しておきたいが
ぐちゃぐちゃになっている。
323 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 11:38:54.15 ID:6Wkwlpg5.net]: そこにメモ帳があるだろ
324 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 13:04:45.51 ID:s5XEFQZu.net]: >>318
毎回最初から最後まで書いてもらえばいい
もう保存とかアホらしくなってきた
325 名前：デフォルトの名無しさん [2023/03/16(木) 15:49:40.74 ID:hTqOV0Oo.net]: 間違えた回答をありがたく保存するのかよ
326 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 17:03:31.67 ID:pLTmwSf1.net]: VBA で1を1stに変換する関数ないの？
327 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 17:49:19.70 ID:dPl9ROvM.net]: Excel VBAにはない
Access VBAなら専用の関数がある
328 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 18:00:58.62 ID:Loiq54un.net]: >>322
VBAでよければ
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11156601881
ちえぶくろだけど　７年前
329 名前：デフォルトの名無しさん [2023/03/16(木) 21:12:18.58 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:04:59.58 ID:Rz29PTI+.net]: >>322
どこまでの値をカバーするか、どういうデータか、によっては、既に書かれているとおりワークシート関数でも事足りるよ
なお本当に1を1stにするだけだったらワークシート関数のSUBSTITUTE使えばいい
331 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:17:55.87 ID:Za4MxO2H.net]: 1 → 1st
11 → 1st1st
101 → 1st01st
332 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:57:25.24 ID:AwqZu1PH.net]: スクショを貼り付けしてトリミングするまでのマクロ使ってるんですが
トリミングした不要な部分を削除
を追加する事ってできますか？
333 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 22:53:09.64 ID:X3/sx5T9.net]: マクロでやる必要ある？
334 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 10:30:21.74 ID:fsx9oQpt.net]: >>329
毎回、図のトリミング部分を削除するのが手間でマクロでやってしまいたい
335 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 11:14:17.24 ID:T5Hyor/5.net]: ［Win］+［Shift］+［S］キー　とかでスクショ撮る前に切り取れば？
　>トリミングした不要な部分を削除を追加する　というのがよく分からんが
うっかり�
336 名前：gリミングしたけど元に戻したいとか？ https://itojisan.xyz/settings/25094/　キャプチャの再考も必要かも []: [ここ壊れてます]
337 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 13:05:56.53 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 18:29:45.55 ID:M92RK9ru.net]: あなたの言うトリミングとは何なのか
トリミング＝不要な部分の削除ではないのか
というところから、どうぞ
339 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 19:21:57.35 ID:+3/waKCo.net]: >>333
図の圧縮のトリミングをvbaでやりたいけどコードが分からないんだろう
340 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 21:50:22.00 ID:fsx9oQpt.net]: いやだから図のトリミング部分を削除したいと言うてるわけです
341 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 22:16:16.30 ID:N8t0mUor.net]: いやだからわざわざマクロでやる必要ないでしょ？
コード書いてるより手動でやった方が早いのでは？
342 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 22:33:34.30 ID:fsx9oQpt.net]: 頻度が多いのよ
図の形式からいちいち削除する手間を無くして
貼ったと同時に不要なトリム部分を削除したい
ネットで見てもなかなか載ってない
343 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 22:39:45.16 ID:+3/waKCo.net]: >>332
いやお前ら、
図の圧縮のトリミングをマクロでやる方法があるならそれを教えてあげなよ
俺はわからなかった。マクロの記録にもない

何パターンか

・図の圧縮をキーマクロにする
個人的には全くオススメしない
https://yaromai.jp/shape-compression/

・別ソフトを使う
pictcutterとか
ドラッグアンドドロップで処理できる
マクロでどうこうするより早い

・別アプリと連携する
imagemagickがvbaと連携できる
かなりしんどいけど、imagemagickは有名なソフトでかなり色々できる
急がないならかなりお勧め。知っていれば画像に関することはほぼなんでもできるようになる
https://qiita.com/tabizou/items/5789ae88abbb063ea0bb
344 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 22:45:35.69 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/20(月) 08:19:41.94 ID:K5H+7bLz.net]: >>338
ありがとう、会社PCだからソフトやアプリを簡単に申請して入れられないんだ

>>339
まじすげぇです、
完全に求めていた事が出来た
本当に心から感謝
マジでありがとう
346 名前：デフォルトの名無しさん mailto:sage [2023/03/20(月) 08:22:41.79 ID:K5H+7bLz.net]: いや、マジ凄い
素人ながら結構ネットで検索してたのに
実現は無理なんかなと諦めてた
本当に本当にありがとう
すげえ
347 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 01:10:26.57 ID:2GJP0s5v.net]: 惚れちゃうよね
348 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 07:03:36.10 ID:bl4/liXV.net]: 濡れる
349 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 10:12:48.44 ID:PCjca3J8.net]: 人間chatgpt認定
350 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 23:13:02.09 ID:QiPSaXn9.net]: ワイはエクセルのイルカ
何でも質問してええよ
351 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 23:23:48.95 ID:kDcUmgO1.net]: お前を消す方法
352 名前：デフォルトの名無しさん mailto:sage [2023/03/21(火) 23:34:19.90 ID:PCjca3J8.net]: サエコ先生？アシスタントだっけ？
あれもリストラされたよね
353 名前：デフォルトの名無しさん [2023/03/24(金) 08:20:34.18 ID: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 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 08:59:41.03 ID:y9S7Bvf0.net]: set wsh = Thisworkbook.WorkSheets(FDigit)
でええがな
355 名前：デフォルトの名無しさん [2023/03/24(金) 10:27:19.17 ID:mGsBzzaU.net]: いや待て
ひょっとすると
Function Lsheetは
実は別クラスに書いてあって
インターフェースを介在して
取ってきているのかもしれないぞ。

そしたら場合によっては
そんな記載になることも
ないとは言い切れない。
356 名前：デフォルトの名無しさん [2023/03/24(金) 10:44:43.79 ID:FUl1ABhx.net]: いやどれも同じ標準モジュール

一覧表シートに載ってる表(A列がブックのパス、B列がシート名みたいな)の値を取るだけだったから
Set Wbo = WorkBooks.Open( SPath( SOutput) )
Set Wsh = Wbo.WorkSheets( SName( SOutput) )
みたいな記述もある(SpathはLSheetのA列から取ってくる)
コメント0でなんでこんな記述してるのかも定数や配列にしてないのかも分からん
357 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 11:25:35.61 ID:1rbGFcof.net]: 変数名にwshは感心しない
斜め読みだと外部スクリプトでも呼んでるのかと勘違いする
358 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 11:57:47.57 ID:y9S7Bvf0.net]: >>352
それはかなり思う。いつも少しひっかかる
359 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 12:03:58.85 ID:MDleo4Zx.net]: 古き良きハンガリアン風に
WB_[ブックの役割名]
WS_[シートの役割名]
とかかな。
360 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 12:10:10.68 ID:anQmlZ/+.net]: 俺はxla, xlb, xls
361 名前：348 [2023/03/24(金) 12:14:05.32 ID:FUl1ABhx.net]: さすがにシートの変数名は変えてあるわ
定数で済むものをシートからの取得にしたり
シートからの取得方法が関数の多重呼び出しだったり
呼び出し先の関数ではシート名直打ちだったり
関数が配列みたいな名前だったり
呼び出しの引数がユーザー定義型だったりで
可読性最悪なクソコードなんだよ
362 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 12:19:18.16 ID:anQmlZ/+.net]: 定数(変数)をまとめたシートはよく作るな
363 名前：348 [2023/03/24(金) 12:31:11.37 ID:FUl1ABhx.net]: >>357
今後マクロを読む引き継ぎ先に向けてのシートだろ？
マクロ内での定数宣言で問題ないのに
わざわざシートから参照する方式で難解にする意味が分からん

百歩譲ってそこを許すとしても
一覧表シートの指定はLSheet関数じゃなくて
SPath、SName内でWorksheets(シート名定数)だろ
364 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 12:35:33.80 ID:DAz6UNB2.net]: 変数を日本語（漢字）で宣言してるわ…
いけないのはわかってるけどメンテナンスする時に楽だから…
Dim 列 As Range
Dim 行 As Range
365 名前：デフォルトの名無しさん [2023/03/24(金) 12:37:59.55 ID:mGsBzzaU.net]: >>359
ちょっと待て
列や行をの型がRange？
どういう状況なんだ？
366 名前：デフォルトの名無しさん [2023/03/24(金) 12:41:59.41 ID:FUl1ABhx.net]: >>360
表かなんかの取得で列や行の一部しか入れないんでねーの
行 = Range(A1:C1)みたいな
367 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 13:15:09.00 ID:anQmlZ/+.net]: >>358
値の取得は Range("設定!名前")
ファイル名やら出力先シート名とかね
ダイアログの代わりみたいなもんか
368 名前：デフォルトの名無しさん [2023/03/24(金) 13:36:50.23 ID:mGsBzzaU.net]: なるほど
したっけ変数名は「行取得セル」とかにした方がいいだろな
369 名前：348 [2023/03/24(金) 14:11:44.49 ID:FUl1ABhx.net]: >>362
結局なんでマクロ上に定数で書くんじゃなくシートから持ってきてるんだよ
370 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 15:27:24.94 ID:NHu64AvA.net]: >>363
北海道民か
371 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 15:59:07.20 ID:anQmlZ/+.net]: >>364
設定ダイアログの代わりにワークシートを使っています。

これでいい？
372 名前：デフォルトの名無しさん [2023/03/24(金) 16:49:43.95 ID:mGsBzzaU.net]: >>366
なら、セルひとつで済むんじゃないの？
対象セルに入力規制掛けてリスト化してしまえば。
373 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 17:41:36.37 ID:5t6vPIej.net]: >>367
そうだね
ほとんどは1つのセルにそれぞれ名前を付けてるね

まあオレがそうしてるだけでゴリ押ししてるわけじゃないからな
無駄だ！と言われればそうですねとしか答えられない
374 名前：デフォルトの名無しさん mailto:sage [2023/03/27(月) 19:44:14.62 ID:Lfv4NoBM.net]: そうですねと答えられたら「そうですか？」と聞き返すしかない
375 名前：デフォルトの名無しさん mailto:sage [2023/03/27(月) 21:10:49.67 ID:vvevgmMM.net]: 問題は名前（文字列）でシートを識別する方式にある
プロパティのところでクラス名やモジュール名みたいにワークシートのオブジェクト名を自由に編集できる
これはシートに付与した名前とは別物で、シート名がどう変わろうと常にそのシートを示す
with worksheet("hoge")
ではなく、オブジェクト名で
with HogeSheet
のように記述できるようになる
名前がHageに変えられたり毛髪に問題が起きても常にHogeSheetにアクセスできる
376 名前：デフォルトの名無しさん mailto:sage [2023/03/27(月) 21:14:34.52 ID:HMtLcTY+.net]: あなたの日本語難しいネ！
377 名前：デフォルトの名無しさん mailto:sage [2023/03/27(月) 22:12:35.66 ID:DLXELyrv.net]: 左にあるのから123って指定できたやろ名前関係なく
378 名前：デフォルトの名無しさん mailto:sage [2023/04/06(木) 23:56:50.44 ID:hYGJaIME.net]: マクロで記録して
　　　　　　　　　　　再生すると　　　　　　　　　　　何だよ
　　　　　　　　　　　　　　　　　　エラーになるのは　　　　図形に多い
379 名前：デフォルトの名無しさん mailto:sage [2023/04/07(金) 07:12:32.36 ID:msaEGqkC.net]: 記録したコード見て直せ
380 名前：デフォルトの名無しさん mailto:sage [2023/04/07(金) 10:04:57.40 ID:d1VNe0g3.net]: マクロだけのファイルでもデバッグ効くんだっけ？
デバッグはスルーするけど実行時にエラー起こすんなら原因は別か
「何だよ」書かれても状況書かないなら単なる愚痴ボヤキ
381 名前：デフォルトの名無しさん [2023/04/08(土) 11:49:01.95 ID:30ktKZ0z.net]: VBAで別のブックを開いて（或いは別のブックから）何か操作をしてそのブックを閉じるという操作をする時に
必ずdimやsetでオブジェクトやパスを格納しなければならないという事はないでしょうか？
382 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 12:47:34.04 ID:tXbSb+Zf.net]: ボタンが貼ってあるセルを選択･値をクリップボードへコピーするコードはどう書けばいいでしょうか？
Bingチャットさんの作ってくれたコードはどれもうまく動きませんでした
383 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 13:09:03.48 ID:4CyiPc7l.net]: >>377
bingチャットさんのコードはどんなの？
384 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 13:12:30.10 ID:d7u9VIcm.net]: >>376
無いよ
385 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 13:29:49.15 ID:Z+egWEAe.net]: ボタンが貼ってあるセル　←そんなものは無い　
両者は別物だし、セルを覆い隠すようにボタンが貼られてたとして、そのセルに何の値があるというのか
矢印キーで移動してそのセルを選択した時に、数式バーに数式とかが表示されるならその値だし
名前ボックスにセル位置以外のものが表示されたら、その名前を調べればいいし

マクロの記録で、そのセルをコピー　だけでコード書かれるけど
Sub Macro1()
Range("A1").Select
Selection.Copy
End Sub　　　　　こんなもの書いてどうしたいんだか　Winキー + V　でクリップボードの中身も見れるけどどうしたいんだか
386 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 14:35:09.85 ID:tXbSb+Zf.net]: Sub CopyButtonCell()
ActiveSheet.Buttons(Application.Caller).Select
　　Selection.Copy
End Sub
>>377 みたいな感じです

>>380 エクセルのシートから他アプリへたくさん値コピーしなければならないような時
Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
構造的にムリならいいです
387 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 15:57:08.07 ID:cbbXW0a7.net]: ちょっとやってみるか
388 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 16:04:33.64 ID:cbbXW0a7.net]: と思ったけど
＞エクセルのシートから他アプリへたくさん値コピーしなければならないような時
＞Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
これエクセルvbaじゃなくキーボードマクロですわ

どうしてもやりたいならボタンじゃなくてセルの変更やダブルクリックでコピーでいいだろう

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

With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub
389 名前：デフォルトの名無しさん [2023/04/08(土) 16:05:06.51 ID:TknoW+3y.net]: 教えて下さい

m1 MacBook Air でvbaやってるんですが

dim wdapp as word.application
set wdapp = new word.application ←
矢印の部分でオートメーションエラーが出るんですが
原因として何が考えられるでしょうか？

wordの参照設定はしてあります
390 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 16:12:27.46 ID:jBwRbDE6.net]: >>384
新規プロジェクトでその2行だけのコードを動かしたらどうなる？
391 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 16:27:58.20 ID:Z+egWEAe.net]: Set wdApp = CreateObject("Word.Application")
or
Set wdApp = GetObject(,"Word.Application")　

do not work either.
392 名前：デフォルトの名無しさん [2023/04/08(土) 16:33:45.44 ID:TknoW+3y.net]: >>385

wordアプリケーションが開いた後
同じくオートメーションエラーが出ました

エラーコードでググったらodbc32ビットと64ビット
がうんちゃらかんちゃらと出てきてit弱者の自分には
よくわかりませんがもう少し調べてみます

エラーコードは-2147467259(80004005)です
393 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 16:41:33.24 ID:tXbSb+Zf.net]: >>383 なぜかcancel行はエラーが出るけど
カーソル移動で次々値がコピーされるようになりました
かなり思ってたのと近い事ができるようになったのでどうもありがとうございます
394 名前：デフォルトの名無しさん [2023/04/08(土) 18:02:10.35 ID:LJ0l06mu.net]: >>384
「教えて」「助けて」系の例の法則と思ったけど、
これは違うみたいね

インテル系Macでもダメだった
Wordは立ち上がるのだがオートメーションエラーで止まる
395 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 20:05:01.26 ID:Mr5vl6VY.net]: >>384
Windowsだとエラーは出ないんで俺にはわからん
396 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 2 ]: [ここ壊れてます]
397 名前：1:34:53.96 ID:ymsLMaB3.net mailto: 0x80004005エラーは要因が沢山あって詳細を書いてくれないと絞れないんだよ
システムにWordプロセスが残っている場合
異なるアーキテクチャを呼び出している場合
32bitのodbcと連携してて64bit環境で実行してる場合等
Officeのバージョンとか判ってる情報を全部載せてくれ []: [ここ壊れてます]
398 名前：デフォルトの名無しさん [2023/04/08(土) 22:32:42.99 ID:UJsM3HNZ.net]: >>391
馬鹿はコメントするな
399 名前：デフォルトの名無しさん [2023/04/08(土) 22:34:09.73 ID:TknoW+3y.net]: みんなありがとう
明日アッポーのサポートが助けてくれるらしい
多分解決すると思う
400 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 23:36:44.53 ID:ymsLMaB3.net]: 土日祝関係なくMS製品の尻拭いまでやってくれるなんて優秀だけどなんか泣けるよね
401 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 23:45:41.57 ID:cbbXW0a7.net]: >>394
いやappleのバグの可能性もある
402 名前：デフォルトの名無しさん [2023/04/09(日) 04:11:37.57 ID:szvOgdHN.net]: >>391
知らないくせに出しゃばる馬鹿
403 名前：デフォルトの名無しさん [2023/04/09(日) 11:09:50.22 ID:MwFb9nZt.net]: with ステートメントは指定したオブジェクトに対して一連の操作を行うものだから
例えていうとアクティブオブジェクトに対してのみオブジェクト名を省略して行う事ができるという事でしょうか？
404 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 12:44:51.59 ID:UEJLauxK.net]: 実際にコード書いてみればわかるような事を質問するやつってこの手の作業に向いてないと思うんだよね
それに書いて動かしてこうなったんですが？（実際にコードつける）なら回答する側も具体的に回答してくれると思うんだが
405 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 15:23:49.51 ID:tahaBI1g.net]: 最近VBAもedge任せだわ
たまに違うってのもあるけど楽で仕方ない
このコードの共通する部分を関数にしてとか
イエス・ノーできるポップアップ作ってとか（これはいちいち覚えていないので）
406 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 18:19:04.23 ID:bSTOMlGp.net]: >>397
自分用語に例える意味がわからない
コードを書くときにwithで指定したオブジェクトの記述を省略できる
内部的にはオブジェクトへの参照回数が減るのでスピードアップする
そんだけ
407 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 22:24:57.39 ID:LBPW4i/X.net]: >>399
・コード全部投げてリファクタリングして
・人のコード全部投げてコメントつけて
めちゃくちゃ楽だよな
今までのアホみたいな作業はほぼなくなったわ
408 名前：デフォルトの名無しさん [2023/04/09(日) 22:41:51.31 ID:MwFb9nZt.net]: >>401
edgeにAIがあってコードを勝手に考えてくれるのですか？
409 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 03:34:03.61 ID:KQyt0PES.net]: Ruby,Python, 今度は Edge もNG追加だな
410 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 12:35:10.06 ID:KRQrRFXa.net]: 了解
春になると意味不明な書き込みばかりよね
411 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 17:13:47.76 ID:1+uqluA+.net]: >>403
>>404
情弱+思考停止で草
412 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 17:30:51.74 ID:D6WHslMZ.net]: Edgeさんは短いコード貼るとどういう動作するコードなのか教えてくれるし
やっぱり可能性を感じる
413 名前：デフォルトの名無しさん [2023/04/10(月) 18:09:43.78 ID:D790o7Er.net]: >>405
すれ違いの書き込みを誘導するのって宣伝か荒らしだろ
糞して寝ろ
414 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 18:38:40.13 ID:KRQrRFXa.net]: 春だなぁ
415 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 19:38:37.33 ID:QC1Dw0Jg.net]: >>402
edgeというかbingな。あれは無料でやや精度が悪い
俺は有料でchatGPT4

ほとんど口語でテキトーに指示出しても良い
下手な新入社員の1兆倍使える

https://i.imgur.com/UxjOSS8.png
https://i.imgur.com/5pPwWWD.png
416 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 19:49:20.11 ID:sVHEvuTz.net]: >>407
キモい
417 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 20:03:19.84 ID:SNPMiXfp.net]: 金払ってこんなことさせてんのか？おいたわしい
418 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 21:56:37.82 ID:sVHEvuTz.net]: >>411
VBAしか出来ない保守的なお年寄りの多さが良くわかるな
まぁ頑張って自力で全部書いてくれ
419 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 22:52:59.23 ID:QC1Dw0Jg.net]: >>411
まぁ、頑張って君は一生懸命コードを書いてくれたまえ
そのうち総務のおばはんが「これ間違っちゃったから別のコード書いて（笑）」ってアホみたいな入力でvba自動生成しますんで
420 名前：デフォルトの名無しさん mailto:sage [2023/04/10(月) 22:54:57.04 ID:QC1Dw0Jg.net]: vbaしか使えない連中はマジでweb系覚えないと詰むぞ
saasだのなんだのシステムどんどん覚えてもいい

お勧めはGASのwebアプリケーション。あれは本当に強い。当分残る
421 名前：デフォルトの名無しさん [2023/04/10(月) 23:52:37.09 ID:jPiGDS+V.net]: そういうのはそっちのスレでやれば良かろう
スレタイ読めないのかね
422 名前：デフォルトの名無しさん [2023/04/10(月) 23:52:42.60 ID:jBIdhypV.net]: ChatGPTの日本法人社長は中国人でしたとさ
423 名前：デフォルトの名無しさん [2023/04/10(月) 23:56:32.42 ID:jPiGDS+V.net]: そもそもVBAスレにVBAしか使えない人がいても問題なくね？
俺は他言語の話は別のスレで書いてるから
424 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 01:09:55.16 ID:2l6ne52s.net]: >>415
スレ違いって笑
425 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 01:36:18.11 ID:muoUIQjV.net]: 違うでしょ？VBAしか使えないんじゃなくて、Excelしか使えないんでしょ？
VBAだけでExcelの全てを動かしてる奴なんて今時はいないはず。
426 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 02:39:51.89 ID:ncXEHvRC.net]: EXCELしか使えない初心者がVBAの質問するのはありだろ
427 名前：デフォルトの名無しさん [2023/04/11(火) 07:39:15.30 ID:2FEVzV7Z.net]: >>414
そう言われつつもずーっとEXCEL VBAは消えていないんだよなぁ
むしろ手軽に組めてその気になれば事務のおばちゃんでも組めるくらいだから
Web系の知識が要らないこともある意味利点と言える。

もちろん、プログラマーとしてやってくならWeb系の知識があったに越したことはないけど
そうなったらフロントサイドではJava Script、サーバーサイドではC#とか全然別の言語使うから
ここで話していてもきりがなくなるよなぁ。
428 名前：デフォルトの名無しさん [2023/04/11(火) 10:12:28.00 ID:nfnGNFO8.net]: >>409
DateSerialは存在しない日付を入れてもエラーにならず、
意図しない日付を返す可能性があるのでその辺を考慮しとかないといけないが、
このコードにはそのチェックが入ってないので正常値でのテストしかしてないとそのリスクに気づけない

将来的にはコード自体に改良が入るか、コードの説明時に補足が入ってくるんだろうが、
現状としてはそれなりにコードが読める人以外が使うとトラブりそう
429 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 13:54:14.11 ID:sRqh1XY0.net]: jsみたいに0日で末日になる方が楽でいい
430 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 20:30:28.66 ID:agA3a9LA.net]: VBA消える消える詐欺
10年前も20年前も同じこと聞いた
10年後も20年後も同じこと言ってそう
431 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 20:44:05.73 ID:J5ZZU3Wh.net]: comオバケのExcelをまるごと作り直す気がないとVBAでいいよねとなる
web版は頑張っているけど所詮はブラウザゲー
432 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 21:06:30.08 ID:CpsQYYlb.net]: Excel の Office スクリプト
https://learn.microsoft.com/ja-jp/office/dev/scripts/overview/excel

Office スクリプトと VBA マクロの違い
https://learn.microsoft.com/ja-jp/office/dev/scripts/resources/vba-differences
433 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 21:20:40.58 ID:57xdnJXn.net]: 「A<Bの時、Bを赤文字にする」という条件付き書式設定を列ごとに行うのはVBAでしか出来ませんか？
「A1<B1」の条件をコピーしても行番号が自動更新する方法が見つからず質問しました。
434 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 21:22:38.94 ID:agA3a9LA.net]: >>427
1つずつ手入力すればVBAは不要
435 名前：デフォルトの名無しさん mailto:sage [2023/04/11(火) 21:27:12.89 ID:/tI+CLvs.net]: 最初条件付き書式に仕様がよくわからず戸惑ってたの思い出した
436 名前：デフォルトの名無しさん mailto:sage [2023/04/12(水) 01:41:59.54 ID:swBiS/Z/.net]: >>424
それを踏まえてExcel無くなる詐欺もちらほら。
437 名前：デフォルトの名無しさん [2023/04/12(水) 02:55:21.49 ID:l5OCzbsG.net]: 無くなる理由でMSからもっといいのでたとか
社内でExcelの使用禁止とかなったら
なくなるかもしれんが……ないだろうね
438 名前：デフォルトの名無しさん mailto:sage [2023/04/12(水) 09:43:30.66 ID:2pDPEdUy.net]: >427
まず最初に条件付き書式で赤文字にしたい範囲（例えばB1：B200）を選択
[条件付き書式]-[新しいルール]　→数式を使用して、、、、を選択し、次の数式を、、の枠内に
=$B1>$A1 その下の[書式]でフォント色を赤
439 名前：デフォルトの名無しさん [2023/04/13(木) 07:03:06.49 ID:SI+mS+L3.net]: ChatGPT搭載されようとしてんのになくなるわけねえだろｗ
440 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 08:16:58.94 ID:lWRLvXgs.net]: MSじきじきに調教したchatGPTとVbaのコラボ…
すごいイルカが誕生しそうだなw
441 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 11:00:17.46 ID:wAJ6smfe.net]: サエコ先生を忘れないで！
442 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 14:09:40.36 ID:zKGXfoub.net]: >>433
ChatGPTって断定するような言い方で出力するけど
内容はそのままでは使えない出鱈目だよ
有料なら使えるのかも知らんが
443 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 14:57:39.54 ID:/LM8AN9C.net]: このスレよりは役に立つだろ
444 名前：デフォルトの名無しさん [2023/04/13(木) 15:07:49.69 ID:21VTCVvM.net]: 人に聞かないと何もできない頭の弱い人にはそうかもな
445 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 16:01:23.94 ID:L3OXwniv.net]: ChatGPTも判断根拠とか出典を明示してくれれば使い物になるんだけどなぁ。

一次ソースを確認できない情報は信用できない。
446 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 18:03:35.32 ID:wAJ6smfe.net]: まず上級者はchatgpt等のツールは使わない。
だって上級者はさらに良いコードを書けるから。
447 名前：デフォルトの名無しさん [2023/04/13(木) 22:42:27.72 ID:TV2fObMx.net]: エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルA1に入る文字を変えたいです
https://jsfiddle.net/9h6Lfju7/

あと、できればVBA使わずに実現したいんですけど方法はありますか？
448 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 22:45:59.87 ID:QfuawtwP.net]: >>440
使う。
使った方が確実に早い

使用頻度に低いコードもノータイムで書いてくれる
449 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 22:47:20.02 ID:QfuawtwP.net]: >>441
Excelのチェックボックスにチェックを入れたら、特定のセルに文字を入力する方法は、次の手順に従って実現できます。

チェックボックスを挿入する："開発"タブ -> "コントロール"グループ -> "挿入" -> "チェックボックス"を選択して、ワークシート上にチェックボックスを挿入します。
チェックボックスにリンクするセルを設定する：チェックボックスを右クリックし、「コントロールの書式設定」を選択します。ダイアログボックスで「コントロール」タブを選択し、「リンク先セル」の欄に、チェックボックスに対応するセルのアドレスを入力します。
IF関数を使って、チェックボックスがチェックされた場合にセルに文字を入力する式を作成する：例えば、チェックボックスがA1にリンクされている場合、次のような式をセルに入力します。
graphql
Copy code
=IF(A1=TRUE, "チェックされました", "")
上記の式では、A1がTRUE(チェックが入っている)の場合、「チェックされました」という文字列をセルに入力します。A1がFALSE(チェックが外れている)の場合は、空白をセルに入力します。
4. チェックボックスにチェックを入れたり外したりして、セルに文字が入力されることを確認する。

以上の手順で、VBAを使わずにチェックボックスにチェックを入れたら、特定のセルに文字を入力することができます。
450 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 23:21:52.07 ID:n+vWlf1Z.net]: ChatGPTの内部構造をよく知らんで振り回されてるやつが多いけど、質問文を文節に分解して、それぞれでぐぐってコピペしてまとめるっていう単純作業を自動化してるだけだぞ
論文をちゃんと読めば書いてあるし、開発サイドでは誰も人口知能だなんて言ってない

だから検索しても出てこない情報は含まれないし、スコアに従って切り貼りしてるだけだから文章でもコードでも前半と後半がちぐはぐな回答が出てくることがある
それをわかった上で利用すれば、退屈な作業を確実に効率化できるんだけどね
451 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 23:26:38.72 ID:QfuawtwP.net]: >>444
＞検索しても出てこない情報は含まれない
人名は割と容赦なく嘘が出てくるぞ
本名で聞いてみたら1970年生まれのプロレスラー＋転職してアニメーターになったわ
もちろんそんな人物は実在しない
452 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 23:45:01.79 ID:wAJ6smfe.net]: 確かにchatgptは早いけど、VBA上級者のような丁寧かつ分かりやすく書けるスキルには及ばないでしょ。
453 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 23:50:31.64 ID:n+vWlf1Z.net]: >>445
Googleでもネット上に存在しないはずの人名とか単語で検索すると無関係な情報を適当に出してくる
そういう関連性の低い検索結果でもChatGPTは容赦なくコピペする仕組みになってる
454 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 00:03:39.58 ID:QTRY6Uuz.net]: >>446
書けるよ
コメント大量に入れてって言えば入れてくれるし
可能な限りまとめてもらったり、冗長でもいいから分かりやすく書いてって言ったらその通り出力してくれる

あとは知らなかった関数なんかも書いてくれる事がある
上級者でも答え合わせ的な意味で使った方がいい
絶対に腕があがる
455 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 00:59:19.74 ID:uflM/2Qr.net]: 進化が恐ろしく速くなるからとにかく否定から入る硬直した頭ではダメな気がする
漠然とw
456 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 03:40:01.68 ID:xXo/sM7i.net]: 否定から入るのは大抵はジジババ老害でしょ？
457 名前：デフォルトの名無しさん [2023/04/14(金) 06:17:31.63 ID:pBZyWRLh.net]: 5chはジジババ老害の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
458 名前：デフォルトの名無しさん [2023/04/14(金) 12:05:37.18 ID:F0gZl9Ij.net]: >>450
それ、否定から入ってるよ
459 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 12:35:16.38 ID:QTRY6Uuz.net]: >>452
どうみても疑問文だぞ
460 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 13:04:36.38 ID:twidN+O+.net]: VBAはジジババ老害しか使わないからね
461 名前：デフォルトの名無しさん [2023/04/14(金) 15:11:32.43 ID:kavQ5jg0.net]: このスレはジジババ専用
462 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 16:06:06.70 ID:TUWR9ux2.net]: 若いのはVBAやらなくなったのか？
463 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 17:09:14.68 ID:tB4oYOkI.net]: 他人にやらせるのがコミュ力と思い込んだからそれ以外もやらないだろ。
464 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:09:42.10 ID:24L0DHOb.net]: >>443
こんな簡単な質問で重大な間違いをしてるのに気付けるのは人だけか？　間違いを指摘するAIが必要じゃないのか？
A1にはその数式を入れるのだから、チェックボックスのリンク先はA1以外にしな�
465 名前：ｫゃダメだろ []: [ここ壊れてます]
466 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:16:29.82 ID:QnJDp/jA.net]: >>458
多分理解できてないのは貴方だけ
467 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:36:06.83 ID:EAAL0jRn.net]: >>456
若さって何だ？
468 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:38:36.70 ID:p9KAKZAT.net]: 振り向かないことさ
469 名前：デフォルトの名無しさん [2023/04/14(金) 18:40:04.49 ID:fSBlKdvX.net]: 振り向かないことさ
470 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:40:49.67 ID:NmpywnE7.net]: 愛って何だ？
471 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 18:53:17.20 ID:EAAL0jRn.net]: MaわレMEら輪な居こと (ﾟДﾟ)ｻｧ?
472 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 19:26:22.99 ID:xXo/sM7i.net]: つまり年齢などただの数字だと
473 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 19:34:04.53 ID:uflM/2Qr.net]: 悲しいけど歳を重ねるほど才能にあふれた者と差は開いていく
474 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 19:36:27.91 ID:hrRp4yZc.net]: VBA哲学スレ
475 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 20:01:52.35 ID:24L0DHOb.net]: >>459
質問者が「セルA1に入る文字を変えたい」と訊ねてる回答としては致命的と云ってる
こんなシンプルな質問だからすぐに間違いに気付けると思うが、より複雑な質問なら
当該セルやテーブルや名前付け範囲やらの対象を雑に扱ってたら、質問者が混乱に陥る
得意げに貼り付ける奴が間違いに気付くでも無くキチンと修正するでも無くたれ流しなのも呆れるしかない
476 名前：441 [2023/04/14(金) 20:28:34.40 ID:AnsRrKWs.net]: >>468
他に方法あるんですか？
477 名前：デフォルトの名無しさん [2023/04/14(金) 20:31:21.28 ID:AnsRrKWs.net]: ていうか、AIの話になるんだったらA1以外のセルにしておいたらよかったですね
478 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 20:31:31.59 ID:iFnuwHtn.net]: >>468
最後の一文は全く同意だ
ChatGPTでの質問は質問者本人でもできる
それを代わりにやって得意げに間違えたままの回答を貼る
AI未満のことしかできないんだもんな
479 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 20:37:10.45 ID:inrZFRKj.net]: A1の値(文字)がチェックボックスの状態によってTRUEとFALSEに変わる
A1の値をIF関数で判定するだけの処理なのでVBAを使うような内容ではないな
480 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 20:38:10.01 ID:iFnuwHtn.net]: だけどここはVBAスレ
481 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 20:45:24.57 ID:xXo/sM7i.net]: Excelはスレ違い
482 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 21:04:16.77 ID:4gfSRBP0.net]: フォームコントロール(チェックボックス)とExcel関数(IF関数)
https://i.imgur.com/RK5Jbt1.png
483 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 15:18:17.56 ID:tgYtFQD8.net]: ChatGPT使ったらどんなサイトよりもわかりやすいプログラムを一瞬で作ってくれる
484 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 16:02:24.33 ID:IxkSV09/.net]: 宣伝を鵜呑みにする情弱老害
485 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 16:19:50.18 ID:fLn1wdWw.net]: ChatGPTは単純で短いコードしか書けない
ちょっと長くなると動かないどころかコンパイルすらできなくなる
486 名前：デフォルトの名無しさん [2023/04/15(土) 16:52:23.65 ID:u6+oq5Jv.net]: >>476
スレ主の例の零細企業の馬鹿か
487 名前：441 [2023/04/15(土) 17:31:15.11 ID:m9DY7U8S.net]: おわります、ありがとうございました
488 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 17:40:05.15 ID:2ypVYtLL.net]: そもそもchatGPTはプログラム向けじゃないぞ
codex系譜のcopilotが最強
あれは関数名書くだけで内部処理全部書いてくれる
489 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 18:00:19.46 ID:rh4rSeDw.net]: 楽しみだな。ベテランにはベテランなりの使い方するんだろうな
490 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 22:19:52.03 ID:HUDQsUTT.net]: GetOpenFilenameで複数画像のファイル選択は出来る？
491 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 22:25:42.06 ID:5FTRawM9.net]: 戻り値をどう判断する気だよ？
492 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 22:37:28.81 ID:fLn1wdWw.net]: >>483
MultiSelect := True
493 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 22:59:06.56 ID:HUDQsUTT.net]: 挿入で複数画像を選択したいんだけど、やり方が分かりませんでした。
ChatGPTに聞いたらwindows　APIがうんたらかんたら書いてたけど上手くいかずです。
494 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 01:11:59.77 ID:TnZPL1QR.net]: chatgptだってそこまであてにならない良い事例だね
495 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 01:48:57.39 ID:56X3CGoL.net]: 無視かよ。
と言うか逆にWin32Apiでどうするのか知りたいわ。
496 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 02:56:05.12 ID:H/UsxmKh.net]: 誰？
どの書き込みへのレス？
497 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 02:58:21.10 ID:TnZPL1QR.net]: 今は春だから(意味深)
498 名前：デフォルトの名無しさん [2023/04/16(日) 08:20:50.36 ID:brYdjlxp.net]: (意味深)必要？
499 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 08:25:35.61 ID:inLFQCcW.net]: 41歳の春だから
今春が来て君はきれいになった
500 名前：デフォルトの名無しさん [2023/04/16(日) 11:42:14.77 ID:RN5sCmuh.net]: ChatGPT って言うけどさ、
あれ危なくて4超える開発止めてるらしいね
頼りすぎるとターミネーターの世界になるってね
501 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 12:09:21.93 ID:htn3Qs9c.net]: >>493
スレチ
502 名前：デフォルトの名無しさん [2023/04/16(日) 12:34:51.14 ID:SPigkToS.net]: 翻訳サイトから情報を取得しているという話すら忘れたころに話題になる不自然さ。
503 名前：デフォルトの名無しさん [2023/04/16(日) 12:36:21.29 ID:SPigkToS.net]: >>490
「意味深」は死語になったよな。

書き言葉でも話し言葉でも使われなくなった。
504 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 17:59:22.28 ID:TnZPL1QR.net]: 新人類世代だから普通に使ってるの！
505 名前：デフォルトの名無しさん mailto:sage [2023/04/16(日) 19:59:39.21 ID:BCvkd2MR.net]: 新人類世代は、1950年代後半から1960年代前半や
1950年代後半から1965年（昭和40年）4月1日までに生まれた世代を指す場合が多かった
現在新人類を明確に定義しているものとしてマーケティング上の世代区分があり、
1961年（昭和36年）4月2日から1971年（昭和46年）4月1日生まれまでと定義されることが多い
506 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 00:15:19.00 ID:15/z+k6u.net]: ChatGPTが使えないと言ってるやつって柔軟性なさそう
507 名前：デフォルトの名無しさん [2023/04/18(火) 00:17:46.72 ID:bd4+2tTP.net]: スレを立てた零細企業の何が本当で何が間違いかわからないような馬鹿には使えるように見えるのだろう
508 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 00:32:39.66 ID:15/z+k6u.net]: >>458の指摘は正しいが
そこで全否定して終わるか使えるところを探せるかが使えるやつと使えないやつの差だと思う
509 名前：デフォルトの名無しさん [2023/04/18(火) 01:43:26.21 ID:xbBLs+9o.net]: 152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8

零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります
510 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 02:54:05.91 ID:mlAg/XBe.net]: そうかい
511 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 05:12:03.57 ID:mwse8UXC.net]: クエリー更新するVBAくらいは覚えておけ。
512 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 09:38:09.65 ID:4Z8D1pgW.net]: 今のChatGPTは高機能な検索エンジンでしかない
一般的に検索エンジンなんて使える場面は限られてる
道具の限界をわかった上で使いこなせるのが優秀な人材
513 名前：デフォルトの名無しさん [2023/04/18(火) 10:02:17.97 ID:7018PZz0.net BE:439992976-PLT(15000)]: sssp://img.5ch.net/ico/u_sii_naname.gif
>>505
出典（ソース）が不明な時点で検索エンジンとしては足りない
514 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 10:52:08.36 ID:XmTn7Wiy.net]: ま、いちばんシンプルなGoogleの検索エンジンだって、ブラウザでAdBlockとかしとかなきゃ
余計な検索結果へいきで出して来るし、Yahoo Bing 百度 DuckDuckGo とか、無理やりブラウザに追加してくるし
道具をまんま使ってるだけじゃ逆に迷惑な場合もあるという好例
いい道具は使う側にもそれなりにスキルを要求してくる　てだけ
515 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 12:06:24.83 ID:QWa6IKeE.net]: スレタイ読むスキルもないけどスキルについて熱く語ってて格好いいな
516 名前：デフォルトの名無しさん mailto:sage [2023/04/18(火) 12:32:43.57 ID:rXetGO++.net]: ChatGPTで実用的なコードを生成させるための的確な指示を出せるスキルが必要になるわけで初心者では曖昧な指示しか出せず動いたとしても何らかの修正が必要、、、ということはそれなりのコードを理解していないとならんてことやんな。

AIだろうと人間だろうと他人が書いたコードの問題点を見つけるなんてめんどい。
517 名前：デフォルトの名無しさん [2023/04/18(火) 20:49:05.02 ID:/P7vNRYn.net]: 正直ChatGTPでコード生成してくれるくらいなら
個人的もっとインテリセンスを強化してくれる方がありがたい。
以前どこかで何の言語かは知らないけど、メソッドの呼び出し口書いたらそれに合わせてシグネチャの部分を生成してくれるのを見たことがある。
現在実用化されているかは分からないけど。
518 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 02:06:53.36 ID:fItpJ+/N.net]: やっと閲覧&書き込めるようになったな。鯖の不具合だとか？
519 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 06:40:26.15 ID:tLf4Utzx.net]: >>506
Googleの検索結果だってリンク先の内容に確かなソースがあるとは限らんのだが
520 名前：デフォルトの名無しさん [2023/04/19(水) 06:58:09.69 ID:eW3W51FI.net]: 宗教の信者って頭おかしい人多いからな
521 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 07:18:28.31 ID:fItpJ+/N.net]: 神なんているわけねーしな。
522 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 07:31:29.73 ID:tLf4Utzx.net]: 神は死んだ
523 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 07:37:42.18 ID:MDD24Rb2.net]: >>514
神なんているわけないってのも宗教だしな
524 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 11:55:14.89 ID:DkdDRKhj.net]: GetOpenFilenameメソッドで複数の画像を選択して、それを配列に格納して、エクセルに順番に貼り付ける、というプログラムを組みました。
さらに、配列の一番最初？の画像のファイル名をセルに入力したいのですが、配列に格納されたファイルのファイル名を取得するにはどうすればよいのでしょうか
525 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 12:01:38.38 ID:DkdDRKhj.net]: できました
526 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 12:17:31.19 ID:DkdDRKhj.net]: すみませんできませんでした。
Dir（配列（インデックス番号？））で、0.185.jpgのようなファイル名は入れれたのですが、拡張子が消せません。
ドットはファイル名に使われていることがあり、拡張子もjpgのみではないです。
どうすればよいでしょうか？
527 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 12:35:42.23 ID:ujtPAN82.net]: >>519
FSOならファイル名と拡張子を個別に取得できる気がする。。。
何らかの理由でFSOを使いたくないのなら取得した文字列の一番うしろのピリオドの位置を特定すればいいのでは?
528 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:04:15.13 ID:eW3W51FI.net]: >>519
DIRの使い方間違ってないか
529 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:26:21.53 ID:fItpJ+/N.net]: 若い人間はディル関数と呼んでいた。
530 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:58:53.29 ID:61/xve5D.net]: Dir 実行した後で拡張子を削除したリストにする
https://correct-log.com/bat_get_filename_without_extension/
拡張子構わず削ってしまうので画像でないファイルが混じってたりすると混乱の元

そもそもファイル名に[.]を使うのが憚られるものだけど、品番・型番とかなんだろうと推測する
私的な用途じゃ無いんだから業務用途なら[.]を[_]にでも変換しといた方が後々のトラブルを避けられるような
社内でルール作りも大事（長年にわたりそうやってきてしまったので今更、、、というのも理解できるが）
531 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 16:06:06.94 ID:tLf4Utzx.net]: 俺はバージョンをそのまま書いてる
app_v3.1.4.exe みたいに
532 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 16:32:02.42 ID:DkdDRKhj.net]: >>520
ありがとうございます　調べてみます

>>523
小数点なので出てくるのは避けられません。
533 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 22:17:44.89 ID:e74q5jo4.net]: ChatGPTはVBAでStringBuilderを使ってくるからね。
ネット検索したら、VBAでStringBuilderクラスを自作してる奴がいて
本当にやめてほしかった。
534 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 23:56:00.40 ID:+74tEZE+.net]: webスクレイピングの質問してもいいですか・・・？

IEnavigate・・・じゃなくて、WinHTTPやXMLHTTPでスクレイピングしてると
ヤフーの記事検索で、古いバージョンの・・・ってなり検索を弾かれるんですが
回避方法とかあります？
535 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 00:06:28.67 ID:cEOJdXQ0.net]: >>527
setRequestHeader
536 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 00:08:38.22 ID:cEOJdXQ0.net]: >>526
そういう場合はChatGPTに「StringBuilderを使わないで」って命令すればいいだけ
537 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 14:09:12.06 ID:pxhF17QW.net]: >>526
え？VBAでStringBuilder使えるの？
538 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 21:29:46.47 ID:cygAdiXR.net]: >>528
ありがとうございます。うまく出来ました。

恥を忍んで、もう一つ聞いてみますが
XMLHTTPとかの方法でjavaの中身をスクレイピングすることって出来ますか？
539 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 21:43:09.53 ID:cEOJdXQ0.net]: >>531
まれにできるケースもあるけどほぼ無理
browserコントロールかwebdriverを使った方が簡単で確実
540 名前：デフォルトの名無しさん [2023/04/20(木) 21:47:47.31 ID:a3MRyG11.net]: 聞く方も答える方も馬鹿の例
541 名前：デフォルトの名無しさん mailto:sage [2023/04/21(金) 13:00:47.00 ID:I9S2hh+O.net]: >>533
じゃあこのスレから出ていけば良い
542 名前：デフォルトの名無しさん mailto:sage [2023/04/22(土) 09:42:19.84 ID:xZH2QK6p.net]: シート全体から検索ではなく、
ブック全体から検索しそのセルまで移動するコードってどこかのサイトにないですかね？
検索までは出来るけど移動がうまく機能しないし、ChatGPTに何度やらせてもうまくいかず
543 名前：デフォルトの名無しさん [2023/04/22(土) 16:15:15.73 ID:p+tyVybI.net]: >>535
そのうまくいかなったコードを貼ってくれれば色々アドバイスできるかと
544 名前：デフォルトの名無しさん mailto:sage [2023/04/22(土) 17:36:15.09 ID:0M3hZjbD.net]: >>535
シート内検索が出来ているのならfor each で全シートにその処理を適用させればいいのでは?

ピンポイントに目的を達成できるようなコードは都合よく転がってないかと。
ChatGPTには処理ごとの指示でコード生成させて自分で組み合わせれば出来んじゃね? 知らんけど
545 名前：ChatGPT mailto:sage [2023/04/22(土) 21:04:52.32 ID:LRW6Fiuq.net]: Sub search_string()
Dim searchString As String
Dim found As Range

searchString = InputBox("Enter search string:") ' 検索する文字列を入力

If searchString = "" Then ' 入力された文字列が空の場合、処理を終了する
Exit Sub
End If

Set found = ActiveWorkbook.Sheets(1).Cells.Find(What:=searchString) ' ブック全体から検索

If Not found Is Nothing Then ' 検索結果が見つかった場合
found.Select ' 該当するセルを選択状態にする
MsgBox "Found at " & found.Address
Else ' 検索結果が見つからなかった場合
MsgBox "Not found"
End If
End Sub
546 名前：535 mailto:sage [2023/04/22(土) 22:12:10.97 ID:xZH2QK6p.net]: 返信遅れてすみませんでした。何故か書き込めず。
for eachで回すようにして作ってみます。ありがとうございました。

>>538
found.Select　似たようなコードが出来たんですが、selectメソッドで失敗になるのですよね。
547 名前：デフォルトの名無しさん [2023/04/22(土) 23:52:52.89 ID:EIwvRS0u.net]: だから使えんと
548 名前：デフォルトの名無しさん [2023/04/23(日) 01:54:53.75 ID:4djiLfGu.net]: ChatGPTがダメなら
マクロ先生がいるじゃない
549 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 04:50:32.07 ID:FpfGPbf0.net]: 知恵袋先生がいるじゃんか
vbキチがいる。
550 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 05:04:42.20 ID:Jetoe3O6.net]: >>538のChatGPTの回答は、検索範囲をSheets(1)と指定してるから1枚目のシートしか検索しない(ActiveSheetではない点に注意)
そもそも、Excelを手動で操作する時は「ブック」を指定して一発検索ができるのに、この機能がなぜかVBAからは使えない仕様になっている
だからループで全シート回すよう書き換えるしかない
551 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 05:20:45.59 ID:Jetoe3O6.net]: それをふまえてChatGPTに再質問すれば、ちゃんとループするコードに直してくれる
結局は便利な道具(AI)があっても、使い方が悪いと思ったとおりの結果を出してくれないってこと
https://i.imgur.com/UEY1EGX.png
552 名前：デフォルトの名無しさん [2023/04/23(日) 07:03:22.97 ID:NdK96c6n.net]: 自力でできる奴はAIで調べる必要がない
553 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 09:10:23.27 ID:vhYO2P62.net]: マクロを記録しながら手動実行して、記録されたマクロを参考にすれば上手くいくことがあるよ
554 名前：デフォルトの名無しさん [2023/04/23(日) 09:54:34.79 ID:4djiLfGu.net]: 鳥取県がChatGPT禁止　平井知事「民主主義の自殺」 [ぐれ★]
https://asahi.5ch.net/test/read.cgi/newsplus/1682203494/
555 名前：デフォルトの名無しさん [2023/04/23(日) 17:24:04.25 ID:uraPIYbl.net]: 儲かる株を教えてくれるAIは無いんかね
556 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 17:26:28.29 ID:vhYO2P62.net]: あるよ
557 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 18:09:32.94 ID:0jCY5BzY.net]: 今のAIはネットから情報を集めてくるだけで未来を予測する機能はない
予測サイトからデータを拾ってくることならできるけど、それはAIの予測とは言えない
558 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 21:46:07.09 ID:OJTKX0Sp.net]: AIをなんだと思ってるの
559 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 22:49:42.49 ID:FpfGPbf0.net]: 横着するためのツールだと思ってる
560 名前：デフォルトの名無しさん [2023/04/23(日) 23:19:15.43 ID:LSSzz9o8.net]: チャットGTPの種明かしだって結局は「データベース」にある事を答えているだけ
だからデータベースにない事は途端に破綻して頓珍漢な回答をする、これが「自信満々に間違える」という事

もっというとシュミレーションするスーパーコンピューターはあるそのシュミレーション結果が正しいわけではないので人間が判断して正しくない計算結果は全て切り捨てて正しい答えだけ残しているらしいです
561 名前：デフォルトの名無しさん [2023/04/23(日) 23:54:35.39 ID:73FkKQIb.net]: 犯罪にAIを使い始めたら厄介だな
562 名前：デフォルトの名無しさん [2023/04/23(日) 23:55:25.14 ID:LSSzz9o8.net]: >>554
データベース化笑できるんじゃない？
563 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 00:43:15.46 ID:ay19AT0z.net]: >>553
シュミレーションて……
DBだろうがなんだろうが使うやつがその特性を把握してハンドリング出来るかどうかって話なんだわ。
PCだってアホから見たらただの箱だろ
564 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 00:54:10.45 ID:ay19AT0z.net]: 辞書が検索エンジンに切り替わって手間が省けるようになった流れの新たなブレイクスルーだろうな
知りたいことを探すときに単語に置き換えて色々なページから探していた無駄を省いてくれる
565 名前：デフォルトの名無しさん [2023/04/24(月) 01:28:52.70 ID:CUqhGEZn.net]: >>556
違います
科学のシュミレーションを行うシュミレーションシステムはありますがシステムは正しい答えを必ずしも出すというわけではないので人間が計算結果を見て正しくない計算結果を削除し、正しいと判断したものだけを残すという形で精度や性能を向上させているそうです

これはチャットGTPにそっくりそのまま当て嵌まるし、なんらチャットGTPは革新的でもないという証拠です
そもそも知能や知性があるならなぜ出鱈目な答えを自信満々に出して間違えるのでしょうか？
566 名前：デフォルトの名無しさん [2023/04/24(月) 02:06:49.66 ID:BWKTcRvI.net]: 馬鹿が使う用語
↓
シミュレーション
567 名前：デフォルトの名無しさん [2023/04/24(月) 02:07:59.37 ID:BWKTcRvI.net]: あ、俺が馬鹿か
漢字変換が勝手に修正する…

シュミレーションと書くのは馬鹿
568 名前：デフォルトの名無しさん [2023/04/24(月) 02:11:33.72 ID:7Q5zeCBn.net]: >>558
馬鹿は間違っていることに気づかないからだろ
569 名前：デフォルトの名無しさん [2023/04/24(月) 02:11:47.58 ID:CUqhGEZn.net]: 例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？
570 名前：デフォルトの名無しさん [2023/04/24(月) 02:12:28.98 ID:dU5ByQ7u.net]: >>562
馬鹿は黙れ
571 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 02:34:30.02 ID:FQlyTijh.net]: 海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w
572 名前：デフォルトの名無しさん [2023/04/24(月) 03:07:44.21 ID:CUqhGEZn.net]: >>563
じゃあなんでチャットGTPは自信満々にまちがえるのです？
573 名前：デフォルトの名無しさん [2023/04/24(月) 04:15:23.35 ID:MMCAzh7R.net]: 馬鹿をだまして金とる戦略
574 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 04:22:29.70 ID:ay19AT0z.net]: >>558
おいおい、結局何と何が違うんだ？
話見えてるか？
575 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 06:04:55.41 ID:bY+5L6EV.net]: 「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル
半角だと環境によってはわかりにくくなるからあえて全角で書いた
576 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:31:46.75 ID:pba/8KUE.net]: ここはChatGPTの話題が出るだけで簡単に荒れるな
577 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:40:26.28 ID:nNpEvIsc.net]: ここだけじゃないよ
578 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:41:51.55 ID:pba/8KUE.net]: スルーするだけで済む話なのにスレタイ読めないのか、
はたまた自作自演で荒らしてるのか
579 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:53:53.38 ID:ltCEeSXK.net]: スルーしろと言うやつほど一番スルーできてない
580 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:56:06.50 ID:5kcFhqjo.net]: 昔は良スレだったのにな。
ひとつの話題で荒れすぎ
581 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:01:16.77 ID:pba/8KUE.net]: >>572
一番の意味くらい知っておいたほうが幸せになれるよ
582 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:11:57.10 ID:4N3isGNg.net]: 別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える
583 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:37:49.72 ID:Z0B9bFh/.net]: こっちのスレ要らなくね？
584 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 09:00:06.24 ID:clOk4EBF.net]: 必要ないと思ったなら見なきゃいいだけ
585 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 09:46:37.76 ID:5kcFhqjo.net]: もう全部スルーしてrom専で
586 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 12:51:06.36 ID:ay19AT0z.net]: スレ違いとかいうやつは見なければいいだけだろ。
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？
587 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 15:11:25.30 ID:Spd75cS3.net]: そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ
588 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 21:31:31.58 ID:5kcFhqjo.net]: ウンコ言うな
589 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 21:41:33.70 ID:LZZeUipz.net]: 嫌なら見るな
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ
590 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 15:23:16.15 ID:jvAnjjKM.net]: 言い方キツイがど正論だな。
嫌なら開かなければ良いな。
591 名前：デフォルトの名無しさん [2023/04/25(火) 16:01:52.20 ID:PhYPsJWz.net]: 逆だな、読んだから嫌な書き込みだと判断したんだろ
592 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 16:32:47.24 ID:OOi8qz2x.net]: ズレてるぞ　おっさん　逆だな、とかどの立場で物申してるか片腹痛いわ
593 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 16:45:08.15 ID:/PKfXSpu.net]: 仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか
594 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 18:48:14.50 ID:PhYPsJWz.net]: 垂れ流されているのが本当にウンコかどうかは見なければわからんだろ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ
595 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 19:06:12.65 ID:jvAnjjKM.net]: ウンコばかり言ってるとクソスレになっちまう！
596 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 20:00:09.95 ID:mmdaU32E.net]: 5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない
597 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 20:03:38.76 ID:mmdaU32E.net]: >>579
番組の枠が野球の延長で延々と潰されてる状態と同じだよ
本来の番組を期待してる人にとっては単なるノイズでしかない
598 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 23:00:49.89 ID:jvAnjjKM.net]: まだ喧嘩してる
599 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 23:02:46.35 ID:OzfCSZRC.net]: >>441これ
何度も色んなスレに質問があって変なのって思ってたけど今、Lineの事務職VBAスレ？で今同じ質問してる人がいてびっくりしたw
親切な人が動画紹介してた。
600 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 00:36:38.80 ID:zxzdUrHn.net]: >>590
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ
601 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 08:58:25.55 ID:1pxgk3Hs.net]: ここしばらくの脱線は多少ですまなくね？
602 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 10:16:58.77 ID:L1Mj70sJ.net]: 俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか
603 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 10:32:27.26 ID:w70Lrl+B.net]: 多少で済むくね？
604 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 11:34:39.03 ID:FZ0Navbz.net]: 行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？
コピーしても絶対参照になって反映されず。

列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。
605 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 11:50:15.79 ID:MQck+7xp.net]: >>597
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける
606 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 14:39:17.86 ID:FZ0Navbz.net]: >>598
それは分かるんですが上手くいかず。説明下手ですみません。
結局1行ずつ条件付き書式設定を行うようにコード書きました。
607 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 18:26:19.83 ID:QhJ3494d.net]: chatgptのvba専用スレ立てれば良くね？
608 名前：デフォルトの名無しさん [2023/04/27(木) 05:48:02.31 ID:+yZZBsrI.net]: ChatGPT ってそんなに凄いんか
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能
609 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 06:49:22.19 ID:76bSpVKu.net]: 頭悪そう
610 名前：デフォルトの名無しさん [2023/04/27(木) 13:34:04.47 ID:dzjZcYac.net]: >>601
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。

ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。

マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。
611 名前：デフォルトの名無しさん [2023/04/27(木) 13:35:04.43 ID:dzjZcYac.net]: 敵キャラクターを作成する
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。

ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。

ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。

以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。
612 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 14:08:46.28 ID:XSILjXL+.net]: この部分のサンプルコードを教えて言うと一応コード書き始めるからな
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん
613 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 14:11:45.77 ID:zVEPCm55.net]: 単純にマクロでゲーム作れる奴すげーし
614 名前：デフォルトの名無しさん [2023/04/27(木) 15:59:16.33 ID:tbrdsB1h.net]: 作れるわけねーわな、あと著作権もあるし
615 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 16:50:28.16 ID:XSILjXL+.net]: AIに人権はないから著作権も存在しない
マリオといっても花札屋のとは限らんしな
616 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 17:13:01.50 ID:Ocl0clWf.net]: 作る人が多くなるとマリオのようなゲームのコードのテンプレのようなものがデータセットの中にできてきて
即答するようになるw
617 名前：デフォルトの名無しさん [2023/04/27(木) 18:09:30.67 ID:DM4R6GlX.net]: >>608
著作権無視は違法ですが
618 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 18:22:26.88 ID:lojChHXv.net]: >>610
AIという道具を使った奴が違法な
619 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:20:31.67 ID:BvI4vGh+.net]: 罫線を引くコードはマクロの記録をしたものを加工するのが最善？
620 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:28:24.02 ID:vB455QFk.net]: いいえ
621 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:42:10.09 ID:FbKok5Di.net]: マクロ記録をそのまま使うなんて90年代のやり方
622 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:49:48.27 ID:vB455QFk.net]: そのままとはどこにも書いてない
623 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:08:25.63 ID:E6P3bOF0.net]: お前は他人の否定ばかりだな？
624 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:16:17.73 ID:/vDIlpFT.net]: Private Sub Bttn_click()
Dim cT, cL, cW, cH, CR, CG, CB As Single
Dim cAd As String
Dim X0, Y0, W1, H1 As Variant
Dim shp As Object

cAd = Selection.Add
625 名前：ress(ColumnAbsolute:=False, RowAbsolute:=False) If Selection(1).Row < 4 Or Selection(1).Column < 4 Then MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !" Exit Sub End If If Selection(Selection.Count).Row > 43 Or Selection(Selection.Count).Column > 65 Then MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !" Exit Sub End If If Selection.Rows.Count > 1 Then MsgBox "複数行が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !" Exit Sub End If If Selection.Columns.Count > 2 Then MsgBox "3列以上が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !" Exit Sub End If －－－－－－－－－－－－－－－　続きあり []: [ここ壊れてます]
626 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:18:29.67 ID:/vDIlpFT.net]: If (Selection(1).Row Mod 2) = 0 Then
CR = 255
CG = 0
CB = 0
Else
CR = 0
CG = 0
CB = 255
End If

With ActiveSheet.Range(cAd)
cT = .Top
cL = .Left
cW = .Width
cH = .Height
End With

If Selection.Columns.Count = 1 Then
X0 = cL + (cW / 2) - 1
Y0 = cT + 2
W1 = cW / 8
H1 = cH - 4
Else
X0 = cL + (cW / 2 - 1)
Y0 = cT + 2
W1 = cW / 16
H1 = cH - 4
End If
－－－－－－－－－－－－－－－－－　続きあり
627 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:29:30.38 ID:/vDIlpFT.net]: Set shp = ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, X0, Y0, W1, H1)

shp.Line.Weight = 0.1
shp.Line.ForeColor.RGB = RGB(CR, CG, CB)
shp.Fill.Visible = True
shp.Fill.ForeColor.RGB = RGB(CR, CG, CB)
Range(cAd).Select
End Sub

セルD4：BM43までの範囲内に限定
一項目二行を使って上段が予定下段が実行などで判断できるように上下で線の色分け
斜線は引けない
図形のパターンは4種　直線・矢印線・縦棒・細い▲　
628 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:31:15.83 ID:/vDIlpFT.net]: Private Sub Bttn2_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then

rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(255, 0, 0)
End With

Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
629 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:32:22.25 ID:/vDIlpFT.net]: Private Sub Bttn3_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then

rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With

Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
630 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:33:33.67 ID:/vDIlpFT.net]: Private Sub Bttn4_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then

rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With

Else
rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
631 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:39:54.72 ID:/vDIlpFT.net]: Bttn　細い▲　　スタート位置など（打ち合わせ・協議など）
Bttn2　矢印線　　ライン矢印付き
Bttn3　直線　　
Bttn4　縦棒　　完了など　　　以下おまけ　BDel　選択された範囲内のシェイプを全削除

Private Sub BDel_Click()
Call shpDel(Selection)
End Sub
Sub shpDel(ByVal mR As Range)
Dim mLo As Long, mCh As Boolean

mCh = True
For mLo = 1 To mR.Worksheet.Shapes.Count
With mR.Worksheet.Shapes(mLo)
If Intersect(.TopLeftCell, mR) Is Nothing Then
ElseIf Intersect(.BottomRightCell, mR) Is Nothing Then
Else
.Select Replace:=mCh
mCh = False
End If
End With

Next mLo
If Not mCh Then
Selection.ShapeRange.Delete
End If

mR.Select
Application.ScreenUpdating = True
End Sub
632 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 17:18:16.62 ID:/vDIlpFT.net]: 補足　：
UserForm 「BttnF」上に、描画用ボタン「Bttn、Bttn2、Bttn3、Bttn4」を貼り
それぞれのコードを割り当て
描いた図形を削除するためのボタン「mDel」も貼る
　セル範囲を選択後、上記いずれかのボタンを押すことで描画したり消したり

描画するSheet上(A1:D4内に配置すればウィンドウ枠の固定をしてもズレずに済む)に
UserFormを出すボタン「cmdBttnF」を貼り　Private Sub cmdBttnF_click()のコードを割り当て

他の図形の例　：
' ひし形は msoShapeDiamond
' 四つ星は msoShape4pointStar 五つ星 msoShape5pointStar
' 開始位置に戻るは msoShapeActionButtonBeginning 進む(再生)は msoShapeActionButtonForwardorNext
' 終了位置へ進むは msoShapeActionButtonEnd
' 吹き出しもできる msoShapeBalloon
' 右向き六角形 msoShapeChevron
細い▲や縦棒が嫌な場合はこれら等で
633 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 17:20:52.50 ID:/vDIlpFT.net]: 「mDel」ぢゃ無かった「BDel」で
634 名前：デフォルトの名無しさん [2023/04/28(金) 20:20:31.50 ID:xyEtsQeE.net]: 皆様お助けください
VBA、INDEX,MATCHで検索先の行の文字数を検索値に合わせたいんだができない…シート関数だったら
INDEX(A:A,MATCH(B3,MID(C:C,1,LEN(B3)),0)でできるのに、マクロでMATCHの部分を
MATCH(ACTIVECELL.MID(RANGE("C:C"),LEN(ACTIVE CELL)),0)に変えると通らない
配列をとある文字数数分だけ検索したいというだけなんですができなくて困っております
よろしく御指南のほどお願い致します
635 名前：click mailto:sage [2023/04/28(金) 21:21:39.24 ID:EQuQ1pVF.net]: >>626
Sub SearchText()
Dim searchText As String
Dim searchRange As Range
Dim searchResult As Range

' 検索値を取得
searchText = Range("B3").Value

' 検索範囲を指定
Set searchRange = Range("C:C")

' 検索して結果を取得
Set searchResult = searchRange.Find(what:=searchText, LookIn:=xlValues, lookat:=xlPart)

' 検索結果が見つかった場合、対応するA列の値を取得
If Not searchResult Is Nothing Then
MsgBox Range("A" & searchResult.Row).Value
End If
End Sub
636 名前：デフォルトの名無しさん [2023/04/28(金) 22:05:44.60 ID:xyEtsQeE.net]: >>627
なるほど、INDEX,MATCHに拘らない系ですね
ちょっと試してみます、ありがとうございます
GPTさんにいくら聞いても修正コードが通らなかったので助かりました
637 名前：デフォルトの名無しさん [2023/04/28(金) 22:07:31.25 ID:q2nR+ZdU.net]: すみません
フォルダの中にあるExcelのファイルを指定のシートのみ残してその他のシートを削除して保存するVBAは組めるでしょうか？
その他にも指定のセルの値をファイル名として保存する方法は可能でしょうか？
638 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 22:16:54.88 ID:h0I1nwu1.net]: チャジれカス
639 名前：デフォルトの名無しさん [2023/04/28(金) 22:45:44.43 ID:BEXA+iPo.net]: >>629
可能かどうかと言われれば可能。
ただ、誰かが開いてたりすることがあるのであれば
その考慮は必要。
640 名前：デフォルトの名無しさん [2023/04/28(金) 23:28:17.83 ID:xyEtsQeE.net]: >>627
ん？良くみたらこれはmatchの置き換えをしてるだけ？
641 名前：デフォルトの名無しさん [2023/04/28(金) 23:33:05.22 ID:q2nR+ZdU.net]: >>631
ありがとうございます
642 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 00:11:05.56 ID:139vt90Q.net]: いつもの否定君息してる～？
643 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 03:45:20.62 ID:+IUP3Yu9.net]: Excel2013でブックやワークシートにコードは貼れますが特定のセルにだけコードを貼って動作させるというような事はできないんでしょうか
コードからセル範囲を指定するというような事しかできない？
644 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 05:48:46.87 ID:CXMs2SVp.net]: >>635
どゆことかよくわからんけどイベントプロシージャのことかな?
645 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 06:57:41.72 ID:+IUP3Yu9.net]: そうです
ワークシート以下の単位はないから貼れないんですかね多分
646 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 07:07:50.60 ID:CXMs2SVp.net]: >>637
いやどゆことかよくわからんけど、例えばchangeイベントなら変更されたセルのrangeを取得できるからそこにコードを仕込むことはできるけど。。。そゆことじゃなくて?
647 名前：デフォルトの名無しさん [2023/04/29(土) 16:14:48.16 ID:eiNFh+Wm.net]: ファイルのパス、フォルダのパスをDimではなくConstで書く方がより正確性が増す
より確実に動作をする
という事はあるのでしょうか？
648 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 16:25:03.32 ID:vp07q8LL.net]: Constで正確性？確実？
エスパーすると関数型風に書きたいってことかな？
VBAでは無理だからそういう考えは捨てた方がいい
649 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 16:25:12.56 ID:WvPbxn9Z.net]: ない
650 名前：デフォルトの名無しさん [2023/04/29(土) 17:18:17.07 ID:eiNFh+Wm.net]: 休みの日も一生懸命考えていましたがきっと私にそれを求められていないし、提案や進言をしても却下されるからもういいや
651 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 17:37:46.68 ID:vp07q8LL.net]: VBAは制限多すぎるから何か自分なりの考えを実践したいなら別の言語も検討したらいいぞ
652 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 17:57:33.75 ID:6pUnwcoa.net]: 俺のエスパーだと、うっかり内容を書き換えてしまう事故が防げるって意味で言ってる？
653 名前：デフォルトの名無しさん [2023/04/29(土) 18:09:49.02 ID:kR657gEs.net]: >>639
馬鹿の考え休むに似たり
654 名前：デフォルトの名無しさん [2023/04/29(土) 18:32:46.88 ID:eiNFh+Wm.net]: >>645
もういいですどうでも
みたいな感じです投げやりになろうかな
655 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 19:09:19.53 ID:vp07q8LL.net]: うーん一生懸命とかいうワードが出てくるって事は若い子なのかな
プログラミングはむしろ楽するための手段だからどうやったら楽できるかの観点で考えようぜ
656 名前：デフォルトの名無しさん [2023/04/29(土) 19:35:35.63 ID:eiNFh+Wm.net]: >>647
やっぱり一生懸命なのは若い人なのですね
一生懸命頑張ってもどうにもならないですもんね
657 名前：デフォルトの名無しさん [2023/04/29(土) 19:43:44.26 ID:eiNFh+Wm.net]: 私には何も決められないし、何も権限もないから勉強するだけ時間の無駄でした
一生懸命するだけ無駄でしたね
658 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 19:45:58.20 ID:vp07q8LL.net]: わかったchatGPTで慰めてもらえ
659 名前：デフォルトの名無しさん [2023/04/29(土) 19:58:39.17 ID:3f5XVnjz.net]: せっかく便利なマクロ作ってもあまり感謝されないとき悲しくなりませんか？
660 名前：click mailto:sage [2023/04/29(土) 20:08:00.17 ID:ueoxn1ZD.net]: 組み込み屋ならconstはROMに配置されてRAMを圧迫しないとか考えてそう。
661 名前：デフォルトの名無しさん [2023/04/29(土) 20:08:33.11 ID:eiNFh+Wm.net]: >>651
過去と他人は変えられないそうです
世の中にはITに疎い人たちがまだまだいるのです
662 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 20:30:49.52 ID:vp07q8LL.net]: いや>>639が質問にもなってない事に一向に気付いてない辺り一生懸命さが足りてないな
論文の出だしの問題提起として>>639を前置きして、その後に持論が展開されるならは意味が判るのだが、その後のレス支離滅裂だし
論理的思考力を鍛えるべきだね
663 名前：デフォルトの名無しさん mailto:sage [2023/04/29(土) 21:55:57.78 ID:nnQvwkBD.net]: 妬み僻みが先にたって、
集合知にならない日本人の悲しさ
664 名前：デフォルトの名無しさん [2023/04/29(土) 22:17:57.28 ID:NIajcuht.net]: こういう頭の弱い人が作ると大文字限定とかなりそう
665 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 05:15:21.17 ID:9FCAizuG.net]: >>651
こういうツールを使いこなせる俺すげーってなっちゃうから
666 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 06:07:32.17 ID:SF8fLpoq.net]: >>653

過去は絶対に変えられないが他人は変えられる可能性がある。
実際『過去と他人は変えられない』という話をどこの誰から聞きかじったのかは知らないが、あなたはその言葉を聞いてその考え方に変わったわけだ。
あなたの立ち居振る舞いによってあなたの周りの人たちは変わる可能性がある。
667 名前：デフォルトの名無しさん [2023/04/30(日) 08:01:15.57 ID:GVkkkwIT.net]: >>651
そこは乗り越えました。親の気持ちになって与える側だと思って使っている人を暖かく見守りましょう
そして、感謝無く文句しか言わない奴にはID取得して動かないように仕込んでおきましょう（UserNameで取れるか試しておきましょう、大概従業員番号か端末番号です）
668 名前：デフォルトの名無しさん [2023/04/30(日) 08:07:07.01 ID:kGukyGZB.net]: 社内汎用なのにコードにパス掛けてる人って何なの？と思うんですよね。別に機密でも無いしいじり壊すヤツなんていやしないし開けておけよと良く思います
こういう人は自分のやったことを抱え込みたい人が多いんですかね？
669 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 08:37:28.66 ID:mp9OxrP6.net]: 褒められたい
認められたい
尊敬されたい

何か間違ってますか？
670 名前：デフォルトの名無しさん [2023/04/30(日) 09:41:48.68 ID:n+FRgVAt.net]: >>658
確実にウザがられますから
671 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 11:07:37.09 ID:vWJSQfSu.net]: たまたまマクロ使えただけとかいうクソがいてマジでイラつくわ
672 名前：デフォルトの名無しさん [2023/04/30(日) 11:38:27.17 ID:n+FRgVAt.net]: >>658
それはあなたがまだまだお若いからです

猛勉強をして医学部になり研修医になり医者になった人が、それからも成功したいと思い開業医になり、猛勉強をしながら人のために何をしたらいいのかと考え続けておられましたが、そうした生活の中で得られた結論は「他人を変えられない」でした
673 名前：デフォルトの名無しさん [2023/04/30(日) 12:01:39.99 ID:n+FRgVAt.net]: Bingのチャット面白いですね
674 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 13:38:29.83 ID:pCoVes+C.net]: >>664
医者と関係なくない？
というかなぜ医者の話をしたの？
675 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 14:58:48.37 ID:izKLiPLe.net]: 'A列の重複文字を削除したいのですが.RemoveDuplicatesで型が一致しないとでます。
どうすればよいでしょうか。お願いします。

Sub RemoveDuplicatesExample()
Dim lastRow As Long
Dim rng As Range
Dim dupCount As Long
Dim cell As Range

' 最終行を取得する
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

' A列の範囲を取得する
Set rng = Range("A6:A" & lastRow)
676 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 14:59:03.71 ID:izKLiPLe.net]: ' 文字列を含むセルを数字に変換する
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = Val(cell.Value)
End If
Next cell

' 重複を削除する
dupCount = rng.RemoveDuplicates(Columns:=1, Header:=xlNo)

' メッセージを表示する
MsgBox "重複を" & dupCount & "個削除しました"
End Sub
677 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 16:08:17.99 ID:nWN6HH2r.net]: RemoveDuplicates はメソッド　メソッドとはオブジェクトを操作する命令文
dupCount はCellの数を削除前と後でCount辺りで別途算出
678 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 17:39:59.36 ID:xlDTnGib.net]: 「ちょうふく」と読む人と「じゅうふく」と読む人いるね
679 名前：デフォルトの名無しさん [2023/04/30(日) 17:43:09.61 ID:n+FRgVAt.net]: >>666
一生懸命勉強をして頑張っている人でも人を変えるのは無理だというのが結論なのにあなたにはそれが出来るのですか？
680 名前：デフォルトの名無しさん [2023/04/30(日) 17:58:36.35 ID:V4pO/PXO.net]: 「じゅうふく」と読む人と「ちょうふく」と読む人いるね
681 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 18:10:45.40 ID:SF8fLpoq.net]: すでに回答あるけどエラー表示通り、Long型の変数にRangeを入れようとしてるから

検証してないけど
rng.RemoveDuplicates Columns:=1, Header:=xlNo
で動くかな?カウントは処理前後で取得すればいいかと。
682 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 21:51:10.68 ID:izKLiPLe.net]: >>669
>>673
出来ました。ありがとうございます。
683 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 23:47:19.54 ID:xlDTnGib.net]: >>672
どちらが正解かな？
684 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 23:54:50.78 ID:RAvx61h8.net]: ダブり
685 名前：デフォルトの名無しさん [2023/05/01(月) 08:25:17.17 ID:Bz4H7pRU.net]: >>675
どちらも正解だけど一般的にはちょうふく
686 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 17:39:15.35 ID:s64+rcVS.net]: Option Explicit　は使った方が良いですか？
Lastrowが多すぎて外していたんですけどやめた方がいいのかわからない。
直すのも面倒
687 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 18:06:55.02 ID:rzS4cwhi.net]: >>678
苦行が好きならどうぞ外してくださいな。
688 名前：デフォルトの名無しさん [2023/05/02(火) 19:43:32.75 ID:5m1nmjju.net]: >>678
そんなことも人に聞かないとわからない人は外さない方がいい
689 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 19:52:52.48 ID:+blsYFqi.net]: Option Explicitを使用することをお勧めします。Option Explicitは、VBAプログラム内で使用されるすべての変数を明示的に宣言することを強制するため、タイプミスやスペルミスなどのエラーを防止するのに役立ちます。

また、変数を宣言することによって、コードの読みやすさと保守性を向上させることができます。たとえば、変数のデータ型が分かっている場合、誤ったデータ型によるエラーを防止することができます。

つまり、Option Explicitを使用することは、より正確で安全なコードを作成するために重要です。したがって、可能な限りOption Explicitを使用することをお勧めします。

また、コードの修正が面倒である場合でも、過去のコードを修正することで、将来的に発生する可能性のあるエラーを防止することができます。
690 名前：デフォルトの名無しさん [2023/05/02(火) 19:56:11.18 ID:DG7CtCYh.net]: フィルターの項目事、あるいはセルの項目ごとにシートにコピーするかファイルに出力する方法はありますか？
691 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 22:53:54.12 ID:W01QlVgz.net]: ありまぁす
692 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 04:56:22.98 ID:KcOhtZMX.net]: 過去スレにそんなもんは付けないよとかほざく猛者いたな。
理由は支離滅裂だったけど
693 名前：デフォルトの名無しさん [2023/05/03(水) 08:16:46.41 ID:zwp10Saa.net]: 本当ならOption Explicitの他にOption Strictも欲しいくらい。
ただ、それに慣れるとVBSやJavaScriptみたいな言語に当たったときに一瞬躊躇するから
型に関してはそれが読み取れるような変数や定数の名前の付け方をするように心掛けてはいるけど中々難しいんだよね
接頭に型を現すような文字付けるのも有りっちゃ有りなんだけどなんか「あー、初心者がよくやるよね」みたいな感じがしてちょっとイヤ
694 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 08:38:47.67 ID:07Dbowlh.net]: jsはletあるやん
695 名前：デフォルトの名無しさん [2023/05/03(水) 17:42:16.15 ID:6h8oPcDB.net]: BingのAIと会話してみた感想
サイトの記述を引用しているだけだから自然な文章なのは当然
回答パターンがまだまだ少ない
いいねボタンとバットボタンがある
いいねの多い回答だけ残す、バットの多い回答は表示させない
↑であれば当たり感触のない回答しか学習しない、人間の知能を越える事はない
そしてそのやり方は前からあったシミレーションのプログラムと同じ
696 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 17:46:59.65 ID:8i/q/Kgr.net]: 何そのツッコミ待ち
697 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:15:10.32 ID:KcOhtZMX.net]: BingのAIはすぐ拗ねちゃうからな
698 名前：デフォルトの名無しさん [2023/05/03(水) 19:36:47.70 ID:6h8oPcDB.net]: ChatGPT 3.5は出鱈目な回答をしていた　4.0になって当たりざわりのない回答になった
そういう事でしょう？
699 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:40:16.52 ID:Kv12u2jn.net]: お前がそう思うんならそうなんだろう…お前ん中ではな…
700 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:41:04.17 ID:Ia3mFb59.net]: 有用性とか将来性が分からなければそれでいいんじゃね
勝手に遠ざけてどんどん取り残されればいいさ
701 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 20:14:55.06 ID:F2sofNfH.net]: Lastrowってどんな感じで変化させてる？
シート数多すぎて混乱する
702 名前：デフォルトの名無しさん [2023/05/03(水) 21:36:02.93 ID:6h8oPcDB.net]: 野獣先輩　と聞けば回答を途中で打ち切る
しかし　中国　野獣先輩　と尋ねると中国での野獣先輩ブームをスラスラ答える
703 名前：デフォルトの名無しさん [2023/05/03(水) 21:51:50.56 ID:6h8oPcDB.net]: やーい　AIの癖に掛け算も割り算もできない奴～
704 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 23:21:43.78 ID:nQu3mtYe.net]: Bingさんは普通に計算できるが？
705 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 17:35:46.71 ID:SG8oVDU2.net]: 複雑なのはダメ。
706 名前：デフォルトの名無しさん [2023/05/04(木) 19:50:34.95 ID:Sg4+jaA6.net]: AIの回答には引用元のリンクがあるので著作権問題に繋がるのもよく分かる
707 名前：デフォルトの名無しさん mailto:sage [2023/05/05(金) 06:38:40.34 ID:P+m46K4i.net]: >>693
クラスモジュールの出番だな
708 名前：デフォルトの名無しさん [2023/05/06(土) 10:27:00.05 ID:fVwKK7Qd.net]: 仮にここから5.6.7とバージョンを重ねてデータベースが増えたと言ってもそれはますます膨大な情報量によって平均への回帰とかよくあるご意見になるだけだと思う
膨大なデータベースがあるからとほぼ全ての人間が間違っていると考える答えを導き出しますか？
そうでなくてもデータベースにない（人間の盲点）情報は出鱈目な回答を生成しますよ

現状は人間が検索していくつものサイトを見て得た情報を代わりに要約してくれる（しかもその要約も正しいか不明、正しいとしても他に見るべき情報は本当にないのか？）程度の品物だと思う
つまり検索エンジン
709 名前：デフォルトの名無しさん [2023/05/06(土) 10:47:11.02 ID:fVwKK7Qd.net]: 人型ロボットの進化も著しいものがあります
しかし直ぐに壊れる、壊れやすいと言う欠点（これは私も盲点だった）が露呈した
「人型ロボットはここまで進化した（している）」という短い動画を見て凄い、凄いと言っていただけでその裏側を見ていなかった
ごく一部の切り取りだった
710 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 12:49:51.00 ID:DOnaG3pX.net]: 独り言とかどうでもいい
711 名前：デフォルトの名無しさん [2023/05/06(土) 13:01:03.66 ID:fVwKK7Qd.net]: >>702
あれだけAIが凄いと言っていた人が多いのに？
712 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 15:26:46.40 ID:V/5WCcXW.net]: 多いんじゃ無くて、特定の少数がやかましいだけ
新しい技術はまずは様子見するのがベテランだろ　触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む
今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ
急がば回れ　慌てるコ〇キは貰いが少ない　善は急げで道端の石に蹴躓いてたんじゃ元も子もない
713 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:05:38.77 ID:uYMm8A/b.net]: 様子見するのはベテランじゃない
レイトマジョリティ、あるいはラガードな
714 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:28.28 ID:l5Xh2UOq.net]: これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か
715 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:52.89 ID:V/5WCcXW.net]: おお、かっちょいい呼び方　ま、覚えてられないと思うけど
散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし
HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし　何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで)
それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて　イイネw
716 名前：デフォルトの名無しさん [2023/05/06(土) 19:06:41.82 ID:fVwKK7Qd.net]: 初めての試み
他の人がやっていない事
他と違う事
は往々にして頭がおかしいと言われます
AIがこれらの回答を生成してもそれは同じ
717 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 01:23:52.56 ID:31z9TTNB.net]: なんだかこのスレも気持ち悪くなったな。
718 名前：デフォルトの名無しさん [2023/05/07(日) 01:49:32.50 ID:oPHUqsU3.net]: 最初からだぞ
719 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 04:38:26.84 ID:31z9TTNB.net]: 例の精神病んでる人が最近しつこいしな。
720 名前：デフォルトの名無しさん [2023/05/07(日) 05:20:09.87 ID:tNDxK8R1.net]: AIに狩野英孝って書いて画像生成させてみ？
女性しか生成されないぞ？
721 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 17:42:02.89 ID:4wzuVWZF.net]: 5：20に何を言ってるんだ？
722 名前：デフォルトの名無しさん [2023/05/08(月) 20:14:43.36 ID:sHCjNd7k.net]: 肖像権の侵害
723 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 21:20:01.63 ID:mh5d7unG.net]: >>693
シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね？
724 名前：デフォルトの名無しさん [2023/05/10(水) 00:19:20.08 ID:ispoDagW.net]: そうね
エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と
ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と
2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、
最終行以外の何かしらのシート情報を持たせるならクラスを、
そうでなければそれ以外の方法を使う感じになると思うのだけれど、
実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね？

個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。
725 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 12:35:00.38 ID:kLH3jMBB.net]: 揮発性メモリなら生成コストも比較してる？
726 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:00:21.35 ID:t+3iUujv.net]: test
727 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:06:43.49 ID:t+3iUujv.net]: トグルA、Bがあって、
①(初期状態)AがOFF BがOFF
②AをON
③BをON
の順に操作した場合、
まず②で、トグルA_Click()イベントのみ発生
③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、
前からそういう挙動でしたっけ？
728 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:00:24.82 ID:t+3iUujv.net]: >>719は無視してください。
729 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:13:48.51 ID:t+3iUujv.net]: トグルA_Click()のイベントプロシージャの中に、
トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました)

トグルBがONになっている�
730 名前：ﾔでトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。 この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。 これは仕様ですか？ []: [ここ壊れてます]
731 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 17:55:26.74 ID:iwbfLeO4.net]: 仕様です
732 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 19:03:43.77 ID:+eiaChgK.net]: ならしようがないね
733 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:12:59.13 ID:o4erV5Yp.net]: スレチっぽいですが、わかる方いましたら回答をお願いします。
VBAとSeleniumを使用してスクレイピングをしたいのですが
1枚の画像を取得するだけでもメモリ不足と出ます。

ChatGPTに聞いたら
734 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:13:48.62 ID:o4erV5Yp.net]: Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。

と返答がきましたが、VBAでは重くなるのでしょうか？
735 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:15:41.06 ID:mDjUk4R1.net]: >>724
プログラムが間違ってる可能性のが高い
736 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 23:57:34.43 ID:o4erV5Yp.net]: >>726
ありがとうございます。
何か負荷がかかることをしているのかもしれませんね
もう一度見直してみます。
737 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:43:08.05 ID:1+aaeJbv.net]: そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい　とか、もっと前向きに
単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど）
738 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:51:22.37 ID:AMweY8Mr.net]: wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).Value = today
wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).NumberFormat = "mm/dd""(""ddd"")"

日付の書式設定を変えたいのですが
「range クラスの numberformat プロパティを設定できません」と出ます。
どうすればよいでしょうか
739 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:58:50.33 ID:6FktRVdV.net]: >>729
"mm/dd""(""ddd"")"""
740 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 12:26:29.64 ID:AMweY8Mr.net]: >>730
エラーは出なくなりましたが表示形式は変わりません。
これは"を一つ追加したようですがどういった意味があるのでしょう
741 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 13:08:23.72 ID:6FktRVdV.net]: >>731
前略Offset(1).Value = Now
742 名前：デフォルトの名無しさん [2023/05/12(金) 06:37:47.52 ID:RwI7vd5H.net]: 仕事でVBAマクロを使用しておりそのマクロではapplication ontime？　を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます

一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます

わかりにくくてすみませんがアドバイスよろしくお願いします。
743 名前：デフォルトの名無しさん [2023/05/12(金) 07:53:35.95 ID:hB6iHQ/6.net]: 興味深い現象だな
744 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 08:45:29.16 ID:273OhBWp.net]: >>733
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す

任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる
745 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:06:37.75 ID:7uGQBCYW.net]: その、閉じますかマクロは必須、必要な処理なのか？意図がわからない
むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？
746 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:59:40.51 ID:/sP06OC3.net]: 職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない
747 名前：デフォルトの名無しさん [2023/05/12(金) 17:51:08.96 ID:xsCXSmel.net]: ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？
748 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 18:03:43.71 ID:273OhBWp.net]: ある
749 名前：デフォルトの名無しさん [2023/05/12(金) 20:13:32.86 ID:f5ZiP8iw.net]: 一つお尋ねしたいのですが
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています
750 名前：デフォルトの名無しさん [2023/05/12(金) 20:38:30.74 ID:8W63Tv/2.net]: 組める
お前の頭が追いついていないだけ
751 名前：デフォルトの名無しさん [2023/05/12(金) 21:51:44.25 ID:f5ZiP8iw.net]: https://daitaideit.com/vba-compare-two-sheets/

このコードを応用すればできそうな気がしてきました
752 名前：デフォルトの名無しさん [2023/05/13(土) 00:26:35.42 ID:XDOekk9R.net]: シート1をシート2に転記
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー

最終的にこうしました
753 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 08:56:53.55 ID:IDKvuPgu.net]: たまにしか使わないマクロを
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。
754 名前：デフォルトの名無しさん [2023/05/13(土) 10:14:45.62 ID:qLGZy+iI.net]: たまにしか使わないのとよく使うマクロを区別する方法がない
755 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 11:55:35.18 ID:/fPWBZJh.net]: PERSONAL.XLSB内の個人マクロかなんかのこと？
使わないのはprivateにでもしたらいい
756 名前：デフォルトの名無しさん [2023/05/13(土) 14:12:54.71 ID:GFR2hXVT.net]: てすと
757 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 17:08:43.77 ID:V8yG/UHy.net]: >>744
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。
758 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:12:26.90 ID:25Zi9cll.net]: UserFormにボタンを追加した後、ボタンをダブルクリックすると、
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか？
759 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:22:19.81 ID:HLBQiI9F.net]: 一番上固定かな？
760 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 00:50:10.90 ID:T/aUw/Co.net]: 一番上とか一番下なら分かりやすいんですが、そうならないんですよね。
追加した順でも、VBE上の直前のカーソル位置でもなく。
761 名前：デフォルトの名無しさん [2023/05/14(日) 08:49:07.12 ID:NGLUYN6O.net]: 　　With
　　　　Worksheets(1)
　　　　Debug.Print .Name
　　　　Worksheets.Add Before:=Worksheets(1)
　　　　Debug.Print .Name
　　End With

と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？
762 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 09:12:17.84 ID:l3SxB+lY.net]: それ以外にも記述できたらどれに記述してるかわからなくなりますやん
763 名前：デフォルトの名無しさん [2023/05/14(日) 11:24:04.23 ID:RX81XCn0.net]: IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？
綺麗なコードの書き方のアドバイスお願いしたいです
764 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 11:56:15.05 ID:/qnsVbR/.net]: >>754
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる
765 名前：デフォルトの名無しさん [2023/05/14(日) 14:28:00.07 ID:NGLUYN6O.net]: オートフィルターを設定
セルの値でフィルター
別シートにコピー
.copy（名前をつけて保存）

までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？

ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました
766 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 17:40:28.14 ID:RbSCBcNR.net]: VBScriptの公式ドキュメントどこに行ったんですか！？！？
767 名前：デフォルトの名無しさん [2023/05/14(日) 23:25:20.98 ID:ugePsCnu.net]: >>757
それがこのスレと何か関係あるのか？
768 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 01:52:14.73 ID:qI8Xfg30.net]: うるせえ！
769 名前：デフォルトの名無しさん [2023/05/15(月) 20:37:17.97 ID:XzAuzUrA.net]: sheet（2）,range.value = sheet（1）,range,value
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか？
770 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 21:25:34.18 ID:uCrsxXET.net]: エクスプローラ上で画像選んで
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね？

ググってみたら以外と出てこなくて…
771 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 22:52:46.17 ID:+mRHKUjh.net]: https://excel-ubara.com/excelvba1/EXCELVBA421.html
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？
772 名前：デフォルトの名無しさん [2023/05/16(火) 13:06:53.10 ID:P46L4qJ3.net]: >>739
ありがとうございます
773 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 13:52:02.22 ID:pE03OLEM.net]: >>762
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ

かと言って、これだけのためにライブラリ追加したりってのも…

WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし
774 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:01:09.62 ID:HY4KEFhG.net]: vbcコンパイラ入ってるからexe作っちまえよ
775 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:58:33.26 ID:xHVT0jsn.net]: ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ
vbaからgdi+はネット上にかなりの資料があります
776 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 15:38:41.06 ID:KioSfVLt.net]: >>764
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ
777 名前：デフォルトの名無しさん [2023/05/16(火) 17:26:18.33 ID:LV7QjD3v.net]: Worksheets(～).Copy
ActiveWorkbook.SaveAs fileName:= ～ =xlOpenXMLWorkbook
ActiveWorkbook.Close

でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません
なぜでしょうか？
778 名前：デフォルトの名無しさん [2023/05/16(火) 20:44:51.09 ID:AsBF0aZH.net]: シート（A）に記入します
シート（A）を複製するコードを実行して
シート（A）2を作成します
シート（A）2に記入します
シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？
779 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 11:46:37.22 ID:RlbRWgaL.net]: ど初心者で申し訳ない
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？
780 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:37:03.45 ID:CM8OYJGJ.net]: なぜその程度の事を試さないでいるのかわからん
781 名前：デフォルトの名無しさん [2023/05/17(水) 20:26:57.88 ID:Y2fbuf/F.net]: >>770
ユーザーフォームの表示位置は設定できるんだから
後はAPIでもなんでもいいから一定時間で起動するイベントで
位置をずらして行けばいいだけじゃないの？
そういう意味じゃなくて？
782 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:34:40.20 ID:edeIW3zk.net]: 自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ　部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか？　マウスで好きな位置にドラッグしろと突っ撥ねろ
783 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:36:59.98 ID:jhfa7U3i.net]: 懐かしのブラクラかよ
784 名前：デフォルトの名無しさん [2023/05/17(水) 22:00:50.03 ID:KPgK0GXZ.net]: やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します
785 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:19:01.82 ID:B0NmirsY.net]: なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ
786 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:37:47.21 ID:dtCX3F+n.net]: >>770
なんでそんな事が必要って話。
マウスが無いなら別だけど。
787 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 23:14:20.94 ID:CM8OYJGJ.net]: >>775
2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる
セルの値を比較するだけなら単純にセルの前にシート名を書けばいい
788 名前：デフォルトの名無しさん [2023/05/18(木) 00:00:54.09 ID:wiHk9Ekj.net]: >>778
どういう事でしょうか？
789 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:19:39.19 ID:re225Wjq.net]: >>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな

If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If
790 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:39:29.96 ID:ejLN3NBy.net]: あっけなく終了
791 名前：デフォルトの名無しさん [2023/05/18(木) 06:34:53.48 ID:wiHk9Ekj.net]: >>780
どうやってElseのセルの塗り潰しをしますか？
792 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 07:03:21.02 ID:qSj77xHN.net]: interiorcolor
793 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 13:22:02.41 ID:re225Wjq.net]: >>782
もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う

Sheets(1).Cells(1, 1).Interior.Color = vbRed
794 名前：デフォルトの名無しさん [2023/05/18(木) 17:13:43.92 ID:NCEYaWdi.net]: Private Sub FillDiff( _
ByVal DstSheet As Worksheet, _
ByVal SrcSheet As Worksheet, _
ByVal cy As Long, _
ByVal cx As Long, _
ByVal f As Long)
Dim d() As Variant
Dim s() As Variant
Dim row As Long
Dim col As Long
With SrcSheet.Cells(1, 1).Resize(cy, cx)
s = .Value
End With
With DstSheet.Cells(1, 1).Resize(cy, cx)
d = .Value
.Interior.ColorIndex = xlNone
End With
For row = 1 To cy
For col = 1 To cx
If Not (d(row, col) = s(row, col)) Then
With DstSheet.Cells(row, col)
.Interior.Color = f
End With
End If
Next
Next
End Sub
795 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:26:43.98 ID:36zUuL+C.net]: >>785
VBAでセルの色も塗れないようなレベルじゃ
このサブルーチンを使うための引数さえ入れることができないと思われる
796 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:51:40.30 ID:UVQ9qsjN.net]: 変数名に違和感しかない
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手
797 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:35:54.69 ID:Djo90icR.net]: 座標にx、yを使う気持ちはわかる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる
798 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:52:50.03 ID:SzaRWxxH.net]: 他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。
本人でさえも1ヶ月後には解読に時間がかかる。
799 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 14:32:46.40 ID:YHChQzBZ.net]: 俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針
Dim sr() ' Source Range
みたいな感じ
800 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:03:10.43 ID:KvfJxEtf.net]: VBAなんてグループで開発することなんてほぼ無いし
コーディングルールなんかあってないようなもんだな
801 名前：デフォルトの名無しさん [2023/05/19(金) 16:13:15.68 ID:4eBJWkt8.net]: グループでなくとも別の人とか辞めた後にとかあるのに
802 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:30:13.95 ID:c4GhPl6O.net]: 自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ
803 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:26:41.01 ID:WMf1UBB/.net]: 出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ
史上最強の暗号に成り果てる　どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる　彼女は優秀なデクリプター　粗末には扱えない
(因みに彼女は打ち合わせに同席していない)　罵倒されながら清書している時間は至福のひととき
804 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:51:29.85 ID:/14cz11e.net]: はいはい
そうですか
805 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:06:46.91 ID:PQ/SGKnq.net]: >>792
それよくいうけど、
知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ
806 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:09:20.34 ID:NNcalgSE.net]: とうとう当スレに
散文詩を記す御仁が出現・・・
807 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:33:52.51 ID:/14cz11e.net]: >794
こんな無能の塊と一緒に仕事する人は可哀そうだな
808 名前：デフォルトの名無しさん [2023/05/19(金) 20:20:11.33 ID:WP5xx6oL.net]: >>790
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。

後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。
809 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 20:30:07.26 ID:xLo0lAaU.net]: エクセルを月曜～金曜の決まった時間に実行する場合は
イベントプロシージャを使うのが一番いいですか？
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください
810 名前：デフォルトの名無しさん [2023/05/19(金) 20:41:37.93 ID:WP5xx6oL.net]: >>800
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと？

タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの？
811 名前：デフォルトの名無しさん [2023/05/19(金) 20:43:39.44 ID:BcAhLJQp.net]: >>800
エクセルを実行するのだからタスクスケジューラだろ
馬鹿ですか？
812 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:00:02.29 ID:xLo0lAaU.net]: >>801
盛大に勘違いしてました。
タスクスケジューラーで問題ないですね。
ありがとうございます。
813 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:05:29.56 ID:faLTwFuJ.net]: >>787
cx cyは座標ではなく
count of x
count of y
MSがwin32APIのc/c++で使ってきた古い接頭語です
まだSIZE構造体に残っています
814 名前：デフォルトの名無しさん [2023/05/19(金) 21:30:19.21 ID:1xa+FLVk.net]: 変数の理解が怪しいのはその通りです
815 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:43:28.41 ID:ROSMxwdg.net]: はあ～またいつものマウント取りあい始まったよ
816 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 00:07:38.75 ID:yUZCKNSa.net]: ビーングは4.0って本当かよ
3.5の方が正しいコード書いてくれるんだが
817 名前：デフォルトの名無しさん [2023/05/20(土) 18:29:05.09 ID:MvHSHmnI.net]: 条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？
818 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:25:35.47 ID:9t/DZW9a.net]: 背景色を変更する条件が付いているから条件付き書式と呼ぶ
条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない
819 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:28:37.71 ID:9t/DZW9a.net]: とおもう
820 名前：デフォルトの名無しさん [2023/05/20(土) 22:48:50.21 ID:MvHSHmnI.net]: 条件付き書式の色だけをコピーするためには
クリップボートのコピーと貼り付けを行えばいいところまではわかりました
そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました
しかしActiveSheet.Pasteで貼り付ける事ができないです
どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？
821 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 23:06:35.71 ID:Is+IXHBJ.net]: 同じとこにそのままペーストしてるからじゃね
822 名前：デフォルトの名無しさん [2023/05/20(土) 23:18:24.07 ID:MvHSHmnI.net]: >>812
ところにそのままペーストすることは無理なのですか？

ではこの様に
Sub Sample1()
Worksheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub

とするのであれば問題ないのでしょうか？
823 名前：デフォルトの名無しさん [2023/05/20(土) 23:41:42.54 ID:MvHSHmnI.net]: やりたい事は
今選択しているシートをコピーして末尾に送る
コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す
という事がしたいです

なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？
824 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 00:16:44.41 ID:aFtCgtc/.net]: やってみて理想通りの動作だったら問題ないんじゃね
825 名前：デフォルトの名無しさん [2023/05/21(日) 01:12:12.18 ID:wgbwVMTA.net]: 頭が悪いからPASTEに拘るのね
826 名前：デフォルトの名無しさん [2023/05/21(日) 02:07:29.20 ID:T6kvmVJR.net]: いったい何のために
827 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 02:24:13.63 ID:Pd8Z4Ia6.net]: VBAが使えないのにワープロが使えたことを自慢していた爺かな
828 名前：デフォルトの名無しさん [2023/05/21(日) 06:58:31.07 ID:sFREmMbU.net]: >>816
ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？
829 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 07:13:41.86 ID:B1R6uG7N.net]: 条件付き書式から条件を消して結果の色だけ残したいんやろ
それは単純なコピペじゃ無理
DisplayFormatでセルの色を調べて自力で再設定するしかない
830 名前：デフォルトの名無しさん [2023/05/21(日) 07:35:11.64 ID:sFREmMbU.net]: >>820

https://tokusengai.com/_ct/17541893

https://dekiru.net/article/16416/

クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました
そしてクリップボートのコピーはselection.copyだという事も判明しました
なので後は貼り付けのみ実行したいのですが
ペーストもスペシャルペーストもエンターキー送信も
全て貼り付けられませんでした
831 名前：デフォルトの名無しさん [2023/05/21(日) 07:58:40.07 ID:sFREmMbU.net]: ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？
832 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 10:39:24.18 ID:E0jRkIIp.net]: 初心者によくある思い込みと表現が稚拙すぎてかみ合わない
833 名前：デフォルトの名無しさん [2023/05/21(日) 11:17:23.92 ID:sFREmMbU.net]: もしかして
VBAで条件付き書式のある範囲をコピーをコピーしたときは
必ず色のコピペではなく、条件付き書式のコピペになってしまう
という事でしょうか？
なのでVBAで条件付き書式でつけられた色を塗りたいときは
必ず
Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex

を使用しなければならないという事でしょうか？
しかも範囲選択も使えないと
834 名前：デフォルトの名無しさん [2023/05/21(日) 12:35:30.87 ID:sFREmMbU.net]: https://okwave.jp/qa/q9992673.html

最終的にこれでやりました
もっと短いコードで行う方法はないでしょうか？
835 名前：デフォルトの名無しさん [2023/05/21(日) 12:49:41.48 ID:sFREmMbU.net]: 別シート（コピー先シート）の範囲に.DisplayFormat.Interior.ColorIndexの値をコピーさせることはできないので
別シート（コピー先のシート）にコピー元のアドレスを参照させるという形なのでしょうか？
836 名前：デフォルトの名無しさん [2023/05/21(日) 13:31:14.96 ID:WfmE7WFK.net]: 馬鹿は馬鹿だから自分の考えた方法が間違えていると指摘されても馬鹿な考えに拘り続ける法則
その実例
837 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 13:35:13.93 ID:swYKjccv.net]: そういうの一言でなんて言うか知らない？
838 名前：デフォルトの名無しさん [2023/05/21(日) 13:36:12.22 ID:z6jOsvMa.net]: 馬鹿は死ね
839 名前：デフォルトの名無しさん [2023/05/21(日) 14:39:46.36 ID:sFREmMbU.net]: >>827
すみません
今回は条件付き書式で塗られている色を値が変わっても残る様にしてほしい
という注文があったので条件付き書式の色を残すという事を考えていました
私は簡単な事だと考えていましたが、「条件付き書式の色をコピーするという事」が想像以上に難しかったです
今回エクセルの古い機能は問題があるかもしれないと学びました
840 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 14:58:07.98 ID:sqwcjnc8.net]: Excelのせいかよw　古かろうが新しかろうが、使用してる環境で張り切るっきゃ無いだろ
それが注文を請けた側の望まれる姿勢　無理なら「できません」ってアタマ下げる
アタシは悪くない、ぜんぶExcelの古い機能のせい　ハイハイ、注文した方にそう言い訳しときな
つか、最終形に到達したんだろ？　それをもっと短いコードに出来ないってだけだろ？
自分はできないけど誰かやって、かよ　それをじぶんの手柄か？　おめでてえな
841 名前：デフォルトの名無しさん [2023/05/21(日) 15:21:34.77 ID:sFREmMbU.net]: >>831
つまり今回の例で言うとExcelの仕様的に出来ないと断るのは望まれる姿勢なので良くて
出来そうだから引き受けたが、かなり難しいのは望まれる姿勢ではないのでダメという事でしょうか？

では例えば知らないので出来ません（無知の知）というのは望まれる姿勢なのでしょうか？
842 名前：デフォルトの名無しさん [2023/05/21(日) 15:52:29.72 ID:JkAFBIVP.net]: 馬鹿って自分ができないことは製品のせいにするんだな
843 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 15:56:24.43 ID:UPj07kqo.net]: 注文って言ってるぐらいだから金が発生してる仕事なのかしらんけど
こんな奴に作らせていいものかと思わなくもない
書き込み数から見て必死さはうかがえるが
844 名前：デフォルトの名無しさん [2023/05/21(日) 16:02:51.00 ID:sFREmMbU.net]: すみません
私は世の中の事や仕事という事を全く分かっていなかったです。
久しぶりの感覚を味わいました。
こらからは出来ない事は出来ないとしっかりいう様にし、自分に確実にできる事をいう様にします。
845 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 16:05:39.40 ID:sqwcjnc8.net]: それはそうだろw　出来もしない奴が「できらあ！」で勝手にいぢくりまわしたら周りが迷惑
どういう立場(内製・外注)か分らんが、出来ないものは「出来ません」とキチンと伝えられた方が
頼む方も判断の材料に成る　「じゃあ他の奴に」と方針決定も早くできる
請けたままグダグダいつまでも結果出さないでいる連中が多過ぎるのは企業(組織)の損失
846 名前：デフォルトの名無しさん [2023/05/21(日) 16:58:16.81 ID:Q4lfSNZO.net]: なぜ「エクセルの古い機能」と決めつけて「問題」だとも決めつけているのか
こういう中途半端の知ったかのせいで風評被害が生まれる
847 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:08:55.76 ID:z50pDIFk.net]: vbaばっかり使ってて知識のアップデートも出来てないから関数を全く使えてない
xlookup？xmatch？？unique？？？indirect？？？？おっさんには無理
848 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:15:28.73 ID:UPj07kqo.net]: 浅い知識でなんとかなると思って痛い目みてると自覚してるならもっと勉強しような
849 名前：デフォルトの名無しさん [2023/05/21(日) 17:25:06.42 ID:JkAFBIVP.net]: >>838
負け惜しみ乙
850 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:29:48.85 ID:z50pDIFk.net]: 何でそんなに無差別に煽ってるのか
余裕ないな…年収低いのかな…
851 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:35:24.54 ID:aFtCgtc/.net]: 高いのは血圧ぐらいです
852 名前：デフォルトの名無しさん [2023/05/21(日) 20:44:03.59 ID:E0jRkIIp.net]: 条件付き書式の「条件」を調べて
マクロ中で条件を判断してコピペ時に
自分で書式を設定するのがいいのではと提案する
853 名前：デフォルトの名無しさん [2023/05/21(日) 20:47:46.54 ID:E0jRkIIp.net]: それでも条件付き書式の優先順位やペースト時は値だけにするとか色々あるけどな
854 名前：デフォルトの名無しさん [2023/05/21(日) 20:55:57.95 ID:36TdhBaA.net]: 先程の話を聞いた限りでは
もうひとつシート作っといて
対象シートと同じ値を設定しといて
値が違うなら着色するのを条件付き書式の
条件の中に混ぜてやれば出来ない
気がしないでもない。

その判断用シートを見せたくないなら
Very hiddenで隠しておけばいいし。

ま、方法は探せばまだなんかありそうな気もするね。
855 名前：デフォルトの名無しさん [2023/05/21(日) 21:06:13.61 ID:sFREmMbU.net]: すみません
本当にその通りだと思います
情けないです
856 名前：デフォルトの名無しさん [2023/05/21(日) 22:03:54.55 ID:sFREmMbU.net]: 試しに最終的に使用したコードをbing AIくんに尋ねてみました
そうしたら解説をして頂けました
ありがとうございます
857 名前：デフォルトの名無しさん [2023/05/21(日) 23:39:24.56 ID:sFREmMbU.net]: 任された仕事、引き受けた仕事はミスなく完璧に仕上げないといけない
という話を聞いてそれではとても仕事を引き受けられないと思うのと、ネットで言われていた「私がやります」と仕事を引き受けたら責任の押し付けをされるから誰も引き受けようとしないという話がやっと理解できました
858 名前：デフォルトの名無しさん [2023/05/22(月) 00:19:24.60 ID:epRK61rP.net]: 転職するなら早い方がいい
859 名前：デフォルトの名無しさん [2023/05/22(月) 01:39:29.37 ID:nnY2CicD.net]: こんなのが入社してくるのは勘弁してくれ
860 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 02:12:11.55 ID:BEHGXC7t.net]: 馬鹿連発病気野郎はこのスレにもいるのか？
861 名前：デフォルトの名無しさん [2023/05/22(月) 07:02:02.27 ID:XzxYYIb6.net]: 責任の押し付け合い、押し付けになるのなら誰もやりたがらない
普通ですよね？
862 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 07:26:17.83 ID:rjxFOQbK.net]: ワッチョイないせいか完全に雑談みたいなスレになっちまってるな
863 名前：デフォルトの名無しさん mailto:sage [2023/05 ]: [ここ壊れてます]
864 名前：/22(月) 10:28:31.01 ID:AcQsf8Uu.net mailto: 元々へんなおぢさんが立てたスレだぞ　正規のスレは別にちゃんと現在進行形で生きてる
それでも所々ではキチンと応じてるひとも居るから続いてるだけのこと

>>825　のリンク先の回答で、なにが不満なんだかソッチのが理解できない
「もっと短いコード」って、それ以上短く出来ないだろうに
もしかして試して無いんじゃないのか？一瞬で要望満たすぞ？ Excel2016での質問だし、もっと古いVer使ってんのか？
そこで解決！で終わらせてりゃ、余計な罵倒されずに済んでたのに　　まぁ、要件が要件で無意味な要求にも思えるけど []: [ここ壊れてます]
865 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 12:34:00.56 ID:JoSCbJ/9.net]: 会社のレベルが低いし勤務してる俺のレベルも当然低いんだが

DX化の推進、早くpython入れないと
と連呼してる人の内容を聞いたら
社内サーバの特定の場所にある1000以上あるpdfをExcelに名前を取得してリスト化したいと…
更にリンクで飛べるようにしたいと…

pythonいれずともマクロでやって神扱い
866 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 13:27:39.73 ID:rjxFOQbK.net]: はいはい
867 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 14:36:24.55 ID:BEHGXC7t.net]: 自慢なのかただの事例報告なのか分からんが、凄いとは思う
868 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 15:33:00.76 ID:1/Dfn2ke.net]: とにかく書き込まれるレス全てに煽らないと気が済まない奴がいるよな。
>>856とかその常連だし。
869 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 16:07:41.58 ID:y9n3XARC.net]: PDFのファイル名だけならそこまででもないような？
まあ神扱いされて？ならそうじゃないんやろなあ
870 名前：デフォルトの名無しさん [2023/05/22(月) 18:22:15.70 ID:XzxYYIb6.net]: >>854
わざわざすみません

セルの色　= ディスプレイに表示されているセルの色
に勝るシンプルなコードはありませんよね
情けないです
871 名前：デフォルトの名無しさん [2023/05/22(月) 18:23:42.16 ID:XzxYYIb6.net]: >>855
全く悔しくないので申し訳ないですがパワークエリでも出来なくもない様な、、、
872 名前：デフォルトの名無しさん [2023/05/22(月) 18:48:11.43 ID:XzxYYIb6.net]: For Each Range型変数 In 範囲
If Range型変数.Value <> Sheets("比較するシート").Range(Range型変数.Address).Value Then

やっぱり短いコードがあったのですね
本当に恥ずかしい
873 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:23:18.88 ID:1/Dfn2ke.net]: いや、いちいち何でマウント取ろうとするのか…年収低いのかな
874 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:56:20.06 ID:AcQsf8Uu.net]: Then の後に記述する量が余計でしょ？　IF分岐させる意味無いでしょ？
ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど
875 名前：デフォルトの名無しさん [2023/05/22(月) 20:00:51.23 ID:XzxYYIb6.net]: >>864
本当にありがとうございます
876 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 21:24:15.99 ID:BEHGXC7t.net]: すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。
877 名前：デフォルトの名無しさん [2023/05/22(月) 21:29:35.14 ID:XzxYYIb6.net]: >>864
bung ai君にも　ifとthenが必要です
と怒られました
878 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 22:19:23.91 ID:AcQsf8Uu.net]: まああれだ　美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ
ちがうか　何がしたいんだかとっ散らかって来てる様子だな
>>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？
Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、
CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？　bug ai に改名した方がいいな

広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで
どれが美味いものかは、本人しか決められねえ　近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような
879 名前：デフォルトの名無しさん [2023/05/22(月) 23:44:38.04 ID:XzxYYIb6.net]: 仕事は確実にできないといけない
できもしない仕事は引き受けてはいけない
という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ
880 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:19:58.26 ID:RbKIxQ9F.net]: AIの仕様は誰かが決めたのかね
確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ
881 名前：デフォルトの名無しさん [2023/05/23(火) 01:24:30.48 ID:9axP82/J.net]: ChatGPTは本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール
882 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:59:10.03 ID:Mz8pt3CW.net]: vbaでの処理のさせかた、ひらめきが大事なんよ
センスない奴はコードの書き方以前にその発想が弱い
要するに仕事が出来ない
短く書く、無駄なく書くことが目的になって年収が低い
883 名前：デフォルトの名無しさん [2023/05/23(火) 02:10:53.64 ID:r33tzfWd.net]: どんなにいい道具でも使う人間がアホだと問題が起きる
884 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:33:58.28 ID:gjFqswYh.net]: Google検索もウィキペディアも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール
885 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:34:15.26 ID:gjFqswYh.net]: 新聞もテレビも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール
886 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 07:03:01.44 ID:/oIAnKQO.net]: 自分が一番信じられないし
887 名前：デフォルトの名無しさん [2023/05/23(火) 08:27:02.94 ID:gffLmLO8.net]: 任された仕事、受けた仕事ができないのは失格だー
というのならAIだって不正格なのだから失格ですね
888 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:39:19.88 ID:iPJXRLkn.net]: AIへの嫉妬が凄まじいなw
889 名前：デフォルトの名無しさん [2023/05/23(火) 08:58:47.24 ID:2rT2TxeB.net]: >>877
仕事できなかったら給料もらえんだろ
890 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:58:47.58 ID:sEILZwQ1.net]: 君は完璧で究極の人工知能
891 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 09:04:21.95 ID:iPJXRLkn.net]: 結果から言うと、こんだけ話題になって活用されて金も集まってるんだろうからかなり有能だなw
892 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 10:54:52.74 ID:m0qa5Enf.net]: 昨年はまではchatgptなんて話題無かったもんな。
893 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 12:37:59.39 ID:ZGM1evgE.net]: Excelって凄い有能だよね
894 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:07:55.58 ID:m0qa5Enf.net]: だから世界中で売れとる
895 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:13:25.70 ID:QEfHRB4s.net]: ツールはどちらも有用
896 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 18:19:29.54 ID:gjFqswYh.net]: 道具なんて使う人次第
包丁だって人を殺せるし、Excelも使い方を間違えれば生産性を落として会社を殺す
897 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 20:00:04.71 ID:m0qa5Enf.net]: あまりExcelをヨイショすると、またGoogleスプレッドシート厨が暴れだすからうざったい。
898 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 21:12:44.25 ID:S1i8GJCU.net]: GSSは所詮真似ソフトだから比較にならん
899 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 22:14:41.12 ID:3uLTyIP1.net]: >>876
w　嫌いじゃ無いw
900 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 08:34:36.23 ID:sVnHWppj.net]: 半年くらいだったら自分の書いたコードの意味が一発ではわからない。
チャット GPT にリファクタリングをたのめるのだろうか
901 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 09:44:03.20 ID:TKPmz7Nx.net]: 書けるけど読めないは最悪で将来役立たず認定されるから早めに現状から抜け出す手はずを整えたほうがいい
902 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 10:33:00.51 ID:sVnHWppj.net]: >>891
おっしゃる通りなんだが、クセというのはなかなか治らないものだから自分だけで見ていても問題点がわからない。それでチャット GPT に見せれば厳しく指摘してくれるんじゃないかと。
もちろん全部鵜呑みにするわけじゃなくて、言ってみればアイディア出しのツールとして使えないかっていうことなんだけど。
どうかな？
903 名前：デフォルトの名無しさん [2023/05/24(水) 11:19:15.40 ID:1HEEtapb.net]: またへんなのでてきたw
904 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:25:33.56 ID:TKPmz7Nx.net]: >>892
その指摘を理解できるのって話じゃない？
このスレはChatGPTに話を振るやつ多いけどそもそも自分の書いたコードにしろ他人が書いたコードにしろ読めない奴が
リファクタリング以前に何をしたいコードかわからないならどんな指摘もらってもそれが正しいものかわからないだろ？
その時にはどうするのって話理解できてる？
905 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:51:37.14 ID:sVnHWppj.net]: >>894
半年経ったら一発で読めないだけで、何がやりたかったのか全体的なイメージは記憶に残っているし、時間をかければ各行の役割は理解できる。それを一発ですらすらわかるようなコードにリファクタリングできないかというだけの話
906 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:58:12.96 ID:TLmwN/Fk.net]: ChatGPTに聞きまくって作りまくってるしコメントも残してあるからメンテも超楽
もうvbaは十分だからpythonを学ぶべ
907 名前：デフォルトの名無しさん [2023/05/24(水) 12:08:05.38 ID:1HEEtapb.net]: >>895
最初にそうやって書いておけばいいだけの話では
908 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 12:57:02.51 ID:gQe9IGSI.net]: 性格わるいひとがおおいこと
909 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 13:02:25.38 ID:TKPmz7Nx.net]: >>895
コード1行1行がわからないとかおかしくないか？書いてあることそのままだろ？
ブロック単位のコードが読めないならコメントなりでやってることを自分が読める言葉で書いておけばよくね
910 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 14:25:50.78 ID:lcK3sBWk.net]: Excelに長けてるやつなんて大抵は性悪だろ。
911 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 17:46:17.42 ID:TxgMbCbW.net]: オリジナルな変数名や関数名使ってる人は
自分の書いたコード読めなくなってそうな気がする
912 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 19:17:06.63 ID:1HEEtapb.net]: 他人が考えたコードをコピペするだけの奴の方が内容覚えてないだろう
913 名前：デフォルトの名無しさん [2023/05/24(水) 20:06:55.55 ID:MlnLG95A.net]: 任された仕事が出来なかったら怒られるんだったら仕事をどんどん引き受けようとは思わない、スキル開発なんて出来るはずがないですよ
914 名前：デフォルトの名無しさん [2023/05/24(水) 20:10:33.59 ID:kc6C7Km2.net]: >>903
馬鹿には無理なだけ
915 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 20:23:24.53 ID:l+gVJ33A.net]: 情けないw　きんたま付いてンのか
ま、そういう連中が多ければ多いほど、それを乗り越えられる奴が人より伸びて出世して率いていける
それでも、昔と違って上役個人のその場その時の感情に任せた怒りは害悪だと広く知らしめられているご時世だから
怒られるってのは随分減ってる　注意されるのが嫌だと言うなら、それは自分でじぶんの成長を止めているという事
上司上長だって見込みの無い奴にいちいち注意とか指導とかしたくない　したところで変わらないと承知してる
注意されたり指導されたりしたら、見込まれてると信じて自分を成長させていく努力を重ねろ
そんなのは嫌だと言うのなら、そのままペーペーの下っ端の人生をまったりと送れ
916 名前：デフォルトの名無しさん [2023/05/24(水) 21:19:13.86 ID:ATYAg5h+.net]: 本当にChatGPTがそこまで有能ならば
VBAのプログラマーであるお前らはもう用済みだろうな
SEとChatGPTだけで開発出来ることになる
917 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:19:58.19 ID:e8mgmyMR.net]: ウィンドウ枠の固定の固定を行列両方でやる方法はありますか？
手作業でやった場合は
B7を選択し、表示 → ウィンドウ枠の固定 → → ウィンドウ枠の固定　の順でクリックすると十字線で固定になります。

これをVBAでやる方法を知りたいです。
' 起点となるセル（B7）を選択
Range("B7").Select

' 行と列を同時に固定
With ActiveWindow
.SplitColumn = 1
.SplitRow = 6
End With
ActiveWindow.FreezePanes = True
これだと上手くいきません。
918 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:43:25.82 ID:lDhUSoZp.net]: >>907
その真ん中は要る?

>>909
こういう書き方はどう?

　　　　Sub a()
　　If b Then
Cells(1, 1).Value = 1
　　Else
Cells(1, 1).Value = 2
　　End If
　　　　End Sub
919 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 22:42:40.02 ID:EnBFiGu7.net]: >>907
ThisWorkbook.Worksheets("Sheet1").Activate
Range("B7").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
920 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 00:15:01.22 ID:7ru6gnb4.net]: >>906
つか最近はVBAの案件が激減りでしょ。
クラウドワークスやココナラにたまに案件出る程度。
しかもクソ以下な報酬だし。
921 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 00:33:58.70 ID:htkuBd+g.net]: Microsoft365Copilotってどこまでできるようになるのかね？
VBAコーディングのアシスタントもしてくれるのかな？
922 名前：デフォルトの名無しさん [2023/05/25(木) 08:17:33.66 ID:r97jG93E.net]: >>904
初めてやる事、勉強しないとわからない事をミスや間違いなくやれって言われても無理だなぁ
923 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 08:42:09.76 ID:qOk7CQOp.net]: 職場内の指示ならサポートする人がいるでしょ
自分で取ってきた仕事ならそれをわかってて受ける奴がバカでしょ
924 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:05:56.11 ID:wW289g5U.net]: >>911
オープンソースのChatGPTでも、適切に質問すればちゃんと動く完全なVBAを書いてくれる
それ以下の性能になる可能性は低い
925 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:25:12.16 ID:lc7HulhJ.net]: いやむしろChatGPT並のaiを搭載出来ると思えん
毛の生えたイルカ
926 名前： []: [ここ壊れてます]
927 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:38:34.50 ID:bvQ+M2zu.net]: 今のAIなんて性能は横並びで、違いは学習データの多さだけ
言い換えれば回線の太さとハードディスクの容量で決まるようなもん
最初はポンコツでもMSの持つリソースを考えればChatGPTなんかすぐに追い抜くのは容易に想像できる
928 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 11:45:58.08 ID:7ru6gnb4.net]: 昨年までchatgptなんて話題になかった。今年からだよね確か？
929 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 12:30:54.27 ID:BeRM8aLP.net]: chatgptにTTRPGのGMやらせたのは去年だった気がする。
930 名前：デフォルトの名無しさん [2023/05/25(木) 12:40:15.38 ID:yD7GMOxx.net]: >>910
そうなのかな？
VBAのPGだけで飯食ってる訳じゃないから分からないけど
ChatGPTがそこまで有能だと言うのであれば
いずれはプログラマー全員が干されることになるだろうな
931 名前：デフォルトの名無しさん [2023/05/25(木) 12:43:50.88 ID:+8NgUpWi.net]: >>919
そんなことを思うのは無能のレベルの低い人だぞ
932 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 14:06:21.16 ID:7X+fG8I/.net]: >>919
確かにchatGPTはコードを書けるけど
なんの責任も取らないchatGPTが書いたコードを
何も知らないままコピーで使うってのは流石にできないだろ

人間がそれなりにコードのこと知っている(=そのコードの責任を取る)からこそ
コピーが出来るんじゃないか？
933 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 14:24:44.64 ID:wW289g5U.net]: 今のAIは、結果が正しいかどうか判断できないもんな
そこまでできるようになったら人間の仕事がいよいよなくなる
934 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 15:33:05.20 ID:7ru6gnb4.net]: chatgptに試しにコードを頼んだら、変なことやり出す時あるから恐ろしいわな。
935 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 15:40:09.70 ID:WTdNLwFH.net]: 普通に考えて間違っていることなのに正しいと言い張って悪いことする人間もいる
936 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 16:38:38.94 ID:9aT2N2S/.net]: まともなコードをかける人だけがChatGPTを貶しなさい
937 名前：デフォルトの名無しさん [2023/05/25(木) 18:25:35.42 ID:IdJA6u5F.net]: chat GTPがコードを書いてくれても使う側の人間がシート名を変えたり、シートを並び替えたり、列や行を挿入したりするから無意味だゾ
938 名前：デフォルトの名無しさん [2023/05/25(木) 19:12:38.82 ID:uTGbx62u.net]: >>910
クソの値段は？
939 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 19:14:42.03 ID:YbSVtxjN.net]: プライスレス
940 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 19:25:43.50 ID:ka2xCALB.net]: 外資系化学メーカーだけど日本の企業からExcelが消えることは自分が定年するまではないわ
AIが発達するならそれに任せるしそこまでいかないなら今まで通り自分で作ってメンテする
ただGPTは十分つかえるし凄い
941 名前：デフォルトの名無しさん [2023/05/25(木) 19:48:46.62 ID:WHjTQOsf.net]: 無能な人はありがたがる
942 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 20:14:18.01 ID:qOk7CQOp.net]: 自分が作りたいものはほぼ過去作のコードコピーして手直しするような感じだからそういう人にはあまり必要ないかもしれないが
まるまる使うわけでなくひな形としてサンプルコード生成してもらうような使い方ならありかもね
943 名前：デフォルトの名無しさん [2023/05/25(木) 22:01:48.16 ID:IdJA6u5F.net]: 非表示のシートにコピーしようとする
あるいはアドレスで参照しようとする時にエラーを出す条件はなんですか？
944 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 22:38:06.47 ID:OGK1w7li.net]: エラーの内容は？
945 名前：デフォルトの名無しさん [2023/05/25(木) 22:41:38.89 ID:IdJA6u5F.net]: >>933
1004ですね😅
946 名前：デフォルトの名無しさん mailto:sage [2023/05/26(金) 04:05:15.06 ID:t8aTcQe9.net]: クラウドワークスのVBA案件が少ないのは分かるが、単価はクソじゃないだろ。
947 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 10:51:17.80 ID:Or9ZKlcs.net]: コードが長いのでプロシージャを分けたいのですが変数は
グローバル変数を使って変数をひとまとめにするのと
再度プロシージャで同じように定義しなおすのはどちらが一般的ですか？
948 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 11:22:44.57 ID:9h/NVUyr.net]: 全体の一部だけ修正するなら好きにしろじゃね
関数Aを関数Bと関数Cに分割するならPublic（モジュールのPrivate）変数にしたほうが直しやすいし
関数Aを関数A自体は残して中のコードを関数Bと関数Cに振り分けるなら
Public変数だけでなく関数Aのローカル変数を関数Bと関数Cの引数に渡すこともできる
949 名前：デフォルトの名無しさん [2023/05/27(土) 12:40:25.19 ID:cGvl/d1n.net]: >>936
自分で考えるのが一般的じゃね
950 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 13:14:17.41 ID:RPl8pCqm.net]: >>936
作業用の捨て変数のことなら、毎回いちいち宣言しないとバグの元
グローバルにすると、例えばループの中から別プロシージャを呼んだ時に破綻する
951 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 13:38:59.73 ID:pJTb6Vhd.net]: >>936
グローバルかローカルかは変数の役割と範囲次第だな。
グローバル変数は便利だけど多用しすぎると
面倒臭くなるから注意な。
ローカル変数は見通し良くなるから使えるときは使うべき。値の受け渡しが必要なら引数使うのが普通だよ。
とはいえ、プロジェクトの性質や要求によって
適切な方法は変わるから自分で考えてみてくれ。
952 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 15:12:20.44 ID:Or9ZKlcs.net]: ありがとうございます。
プロシージャ毎に１つずつ実行するときと
複数順に実行する場合があるので
引数だと面倒だなと思ったのでグローバルにしようか悩んでいました。

自分の能力ではコードが増えたときにグローバル変数だと混乱するのではやめておきます。
953 名前：デフォルトの名無しさん [2023/05/27(土) 22:23:40.36 ID:wfFOuEPe.net]: ミスや不具合のあった時にあーだこーだ言われるのだから日本にはAI開発なんて不可能
954 名前：デフォルトの名無しさん [2023/05/27(土) 23:08:54.80 ID:rPvuWgFx.net]: それは極論
955 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 16:42:51.88 ID:pV4wEcmO.net]: 日本企業は権力に弱いからあーだこーだ言われてしまうと萎縮してしまい海外AIのような思い切ったプロジェクトを立ち上げる事ができないという事は言える
これは各省庁の圧力を封殺して国が主導して補助金まで出すようになれば事態は一変するかもしれない
956 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 17:53:17.80 ID:aECve9cA.net]: 他人のカネをあてにしたプロジェクトで成功した試しが無いだろ
ビンボこそがパッションとモチベと成し遂げる意思と工夫とプランニングに富む基礎と成る　
食えるか食えないかギリギリのビンボがな
957 名前：デフォルトの名無しさん [2023/05/28(日) 18:05:09.72 ID:8TEHyhBs.net]: 課題が多いのは事実だがそれを乗り越える技術のある人もいることに期待する
958 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 20:48:41.35 ID:aECve9cA.net]: もっと言うと、デカく成った企業は保身に走る、突っ走る　デカく成りつつある企業もそれに倣って保身に走る
それは中の人が(俺の代でポシャる訳にはいかない)と、無難な路線しか認めないから　挑戦の二文字は倉庫に仕舞い込んでる
それに加えて昨今のHDブーム　何でもかんでもホールディングスにすりゃいいと安易に設立して内部留保に励む
前世紀末のバブル崩壊をまざまざと経験した世代は特に臆病風を吹かしまくる　チキン・ハート症候群だ(現役だけに大迷惑)

その点、昨今の怖いもの知らずのZ世代なら、悪事を働く方向とは真逆のベクトルで突っ走ってくれたら
とんでもないイノベーションを起こす可能性を持ち合わせている　ウィリアムやスティーブのようなのが出て来る可能性も
まあ、願望だけだが　　それでも、ひとりかふたり出てくれればゴロっと変わる可能性だってあるんだから、希望の光は消えない
959 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 21:45:16.66 ID:FAxVwT0p.net]: Application.OnTime TimeValue("12:00:00")

オンタイムメソッドのコードのテスト方法って何かありますか？
動くかの確認に毎回時間を合わせてテストするのが大変なので質問しました
960 名前：デフォルトの名無しさん [2023/05/28(日) 21:50:34.02 ID:0FRQEohw.net]: すみません
ここまでのコードはうまくいくのですがこの先の以下のコードを実行すると400や1004のエラーメッセージが表示されます
しかしながら望み通りの場所に名前をつけて保存してくれます
なんのエラーが出ているのでしょうか？

Sheets("リスト").Copy

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TEST1.xlsx"

ActiveWorkbook.Close

End Sub

リスト　シートをコピーして新しいブックとして開き、名前をつけて同じ場所に保存という事がしたいです。
961 名前：デフォルトの名無しさん [2023/05/28(日) 22:12:18.01 ID:0FRQEohw.net]: おそらくやっと原因が判明しました
OneDriveのせいでした
962 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 22:50:47.30 ID:v/IHwhGn.net]: ２～３０年後ぐらいにAIの分野の遅れが致命的になり慌ててAI庁とか作りそう
963 名前：デフォルトの名無しさん [2023/05/28(日) 23:40:07.55 ID:O8C+AHmT.net]: デジタル庁があるやん
964 名前：デフォルトの名無しさん [2023/05/29(月) 02:32:31.75 ID:A0J6rQWV.net]: 金目当ての仕事しかしないで中身スカスカだろうけど
965 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 06:53:52.00 ID:6VgnbzRd.net]: >>946
今の日本は現場が下に見られるから
技術のある人は権力や役職者にいいように利用されて終わることが多い
966 名前：デフォルトの名無しさん [2023/05/29(月) 10:00:53.79 ID:XEr4TBXw.net]: みんな、エッチ団結しようよ！
967 名前：デフォルトの名無しさん [2023/05/29(月) 15:43:26.34 ID:sEjgVYtC.net]: >>954
多いだけで全員ではない
968 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 16:43:45.59 ID:617wK6FV.net]: やっぱりめちゃくちゃ丁寧にコメント残して変数の宣言をめんどくてもしっかりしとくと後で手直しが楽だな…
社内サーバーが変更になって他部署のマクロがあちこちエラーでバタつきまくってるけど俺の作ったvbaちゃん達は少しメンテしただけでオールオッケー
ヘルプが来たけど他人の作ったマクロ全然わかんね
969 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 17:02:10.90 ID:4Pg0mNi+.net]: ウデを持ってるなら、そんな環境からとっととおサラバするのがいい
サヨナラされてようやく気付く企業も多く成るべき
それでもそこにしがみ付きたいなら、技術だけじゃなくて知恵も蓄えないと
どうやってその邪魔な上役・役職者を失脚させて、徐々にでもじぶんの地位を上げるか　とか
学歴・派閥・職歴えｔｃ、ひとは誰しも欠点を持ち合わせてンだし、そこをトコトン突っ突かないと
ブツブツ文句垂れてるだけじゃなにごとも変わらない　諦めたらそこで終わりなのも事実だし
970 名前：デフォルトの名無しさん [2023/05/29(月) 21:13:35.07 ID:PjfX8r01.net]: 一つだけお聞きしたいのですが、VBAを作成したとしても利用者がシート名を変更したり、シートを削除したり、シートを追加したり、並び替えたりしたら自動化や効率化のやりようがないですよね？
オブジェクトが存在しないとか並び替えられていたらインデックスで指定するのが無理とかそう言う事になりますよね？
VBAは決められた手順通りに定められたメゾットを実行する物であって、ブックがめちゃくちゃだと実行しようがないですよね？
971 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:20:52.62 ID:4q9o84pD.net]: シートをオブジェクト名で処理すればシート名変更・並び替え・シート追加はどうでも良くなる
シート削除対策は予備シートを他のブックにでも入れておいて本シートの存在判定後に予備シートからコピーすれば良い
972 名前：デフォルトの名無しさん [2023/05/29(月) 21:26:22.38 ID:PjfX8r01.net]: >>960
なるほど

ちなみに一番新しいシートのオブジェクトを指定する方法はあるでしょうか？
ブックにあるオブジェクトを探して一番大きい数字のオブジェクトを指定できるなら助かるのですが
worksheet.countやworksheet.count - 1の様な事をオブジェクトで行いたいです
973 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:38:44.22 ID:5rIVitSK.net]: もちろんできる
974 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:43:07.69 ID:4q9o84pD.net]: 普通は新しいシートを作る位置でその手のコントロールをすると思うけどね
975 名前：デフォルトの名無しさん [2023/05/29(月) 21:45:22.79 ID:PjfX8r01.net]: >>963
並び替えられると動作しなくなるのでどうにか不変もので出来ないのかなと思いました
連番？で数字が増える事だけが頼りです
976 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:53:57.15 ID:4q9o84pD.net]: >>964
新しいシートを作るのがコード自身ならコントロールできるでしょ

あと、並び替え程度で動かなくなるとか
シートを作られただけで動かなるコードなんてのは脆弱すぎるので
先ずはその点の改良をしたほうがいい
977 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 22:02:48.61 ID:nq5ttQ99.net]: そんなんで駄目になるなら初めからガチガチにロックしてこっちが想定した操作以外できなくしてしまったほうが早い気がする
978 名前：デフォルトの名無しさん [2023/05/30(火) 02:48:24.27 ID:ztJvp+qD.net]: VBAでどんなコードを書いてもユーザーが勝手に変更したら動かなくなるよ
979 名前：デフォルトの名無しさん [2023/05/30(火) 06:48:55.03 ID:D1ASN+X8.net]: >>965
やりたい事は一番新しいシート（最新のシート）とその前に作成されたシート（古いバージョンの様な）を比較して一致しないセル（変更のあったセル）に色を塗ると言う事がしたいです
一番新しいシートはマクロを実行する度に複製されます
私は一番新しいシートに記入してマクロを実行すると直前のシートと比較して色を塗る所まで出来ました
しかし利用者の方が一番新しいシートに記入される方ばかりではないと言う事にも気がつきました。
なのでどこのシートでマクロを実行しようとも一番新しいシートとその直前のシートで比較するマクロを組みたいです。
980 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 06:57:07.62 ID:T5vzeTOi.net]: どこかにシートの作成履歴を保存しておくしかないのでは？
981 名前：デフォルトの名無しさん [2023/05/30(火) 07:58:55.38 ID:IcFRt183.net]: ブックを開きその時点での一番新しいシートに記入する
マクロのボタンを押す
シートを複製する
一つ前のバージョンのシートと比較して変更のあったセルに色を塗る

と言う事がしたいです
つまりマクロを実行するシートというのは常に新しく複製されたシートです
理想は常に新しく複製されたシートのオブジェクト名を取得してその前のバージョンのシートと必ず比較できるマクロが組みたいです
982 名前：デフォルトの名無しさん [2023/05/30(火) 08:01:10.86 ID:IcFRt183.net]: ttps://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11256025046

ここに書かれているCode nameが最大のシートを探すと言うのが答えになりそうなのですが私には分かりませんでした
983 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 08:29:21.45 ID:qMHj8iFj.net]: そのブックの構成がよくわからないな
その古いシートへユーザーが書き込むってのはミスなの？そのシートに書き込む必要がある状態なの？

因みに、codenameを取得して番号から最新シートを把握というのはちょっと微妙な気がする
何故ならシートのオブジェクト名もシート名も
そのEXCELブックが立ち上がった時の一番若い番号に振られるから
つまり、オブジェクト名に歯抜けの番号があればその歯抜け番号が最新番号になる、、はず

そんなのより各シートにインデックス番号を
シート内の固定場所に
振っていくほうが手っ取り早いんじゃないの？
若しくは管理用シートを別に用意するとか手段はいくらでもある
984 名前：デフォルトの名無しさん [2023/05/30(火) 08:29:25.24 ID:IcFRt183.net]: なんとなくわかって来ました
初期値のworksheet（シート名？オブジェクト？）　< ブックの中のシートのコードネーム
がthenならそのCode nameを変数に入れたらいい
そしてそのCode nameのシート名を取得して変数に入れればいい
と言う事ですね
985 名前：デフォルトの名無しさん [2023/05/30(火) 08:49:28.89 ID:IcFRt183.net]: >>972
本当にありがとうございます
私はvbaの初心者で必ず最新のシートが選択される様にする
と言うだけでこの通り全く分からない状態です

そんなのより各シートにインデックス番号を
シート内の固定場所に
振っていくほうが手っ取り早いんじゃないの？
若しくは管理用シートを別に用意するとか手段はいくらでもある
↑
私もインデックスを固定して操作する方が確実だとは思うのですがシートの並び替えだけを禁止すると言う理解でよろしいでしょうか？
986 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 09:26:21.94 ID:qMHj8iFj.net]: >>974
いや、ちょっと勘違いしているね
平易に言うと、自分で作った通し番号を各シートの固定場所に記載するってこと。
シートの並び順はもはや関係なくなる

具体的には、一番最初のシートには使ってないセルに「1」を振る
次に新しいシートを作るときは
for each 変数名 in thisworkbook.worksheets
でブック内全シートの番号を降った場所を検索して
一番大きな番号を取得
その取得した番号の次の番号を新しいシートに振る

これでいつでも最新シートを更新出来るようになる
987 名前：デフォルトの名無しさん [2023/05/30(火) 10:50:25.84 ID:IcFRt183.net]: >>975
なるほど！
わかりやすい😭
988 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 17:51:07.23 ID:1Ly+sIKy.net]: こないだの奴だろ？　わかったつもりでいても、実装には難儀する気がする
そもそも要件と、それをまかなう仕様がなんかまちがってる気がしてならない
古いSheetと新しいSheetで違う値のセルをハイライト
で、その新しいSheetは明日には古いSheetに成るんじゃないのか？ハイライトする意味は？
ひとつのブックをみんなで寄ってたかって編集してるのか？　で、制作物は最終的にひとつなのか大量にあるのか
古くなったSheetはもう不要なのか、いつか参照するのか　ブック内でどんどんSheetが増えていくのか　その頻度は

書ける範囲で業種とか業務とかの概略を書いた方が結果的に近道な気がする　気がするだけだけど
その用途ならこうした方がいいぞ　というアドバイスも出てきそうだし
989 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 18:47:46.87 ID:rtVxM/0K.net]: 適当な人間が使ってるものを深く考えずに何とかしようとしてるだけだから仕方なくね
ぶっちゃけこんな感じなるなら別のブックにマクロいれて
ファイル名、変更前シート、変更後シート
あたりを入力して変更後シートの変更箇所に色塗りするってマクロ作った方がいいんじゃねと思うわ
そもそも勝手にシート増やされたとしてそのシートが番号振ってあるシートだったら破綻するだろ？
990 名前：デフォルトの名無しさん [2023/05/30(火) 19:50:15.30 ID:D1ASN+X8.net]: >>978

シートを手動でコピーされるかあるいは新しいシートを挿入されたら終わり
確かにその通りでした
やはり浅はかでした

どうにもシートの保護などは禁止らしく、他のブックで比較するのも禁止らしいです
では最終手段として一番新しいシートを一番右に、その前のバージョンのシートをその左に手動で並べて右と左で比較するコードをと提案しましたが必要を理解してもらえませんでした
991 名前：デフォルトの名無しさん [2023/05/30(火) 19:57:03.41 ID:D1ASN+X8.net]: 個人的にはマクロが登録されているボタンを押して作成している限りにおいては正しい動作が行われるで満足なのでセルに数字を入力してシートを指定する案で終わります
992 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:02:47.81 ID:8KdzSu0t.net]: 誰もマクロを触れない部署で全く新しいアプローチでツールを作ってくれと言われて
今月の残業時間40Hだが全部vbaに費やしてる
まだ試作だけど部長に糞誉められた
いやでも会心の出来かも
デバックエラーが絶対起きないようにあらゆる想定をしてユーザーフォームのボタンに込めた
993 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:08:16.56 ID:rtVxM/0K.net]: そうかよかったな
チラシの裏にでも書いておけ
994 名前：デフォルトの名無しさん [2023/05/30(火) 20:19:41.96 ID:D1ASN+X8.net]: ちなみに当の本人は「サンプルシートに記入した人がいる、キチガイやろ？」と言っていました
私はそれはシートの保護をせず、入力ができるからでは？入力ができる以上、そう言う操作を行う人が居るのは当然なのでは？入力するべきではないシートだとわかりにくいからでは？と思いました。
そして人の悪口を言うのを辞めようと思いました。
995 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:30:00.27 ID:LGax4AHG.net]: >>982
こういう年収低い奴はやたら攻撃的だな
格差社会の弊害がここに
996 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:33:12.41 ID:8KdzSu0t.net]: 常に煽り口調なレス怖いですね
低年収なら仕方ない…のか？
それこそチラシの裏に社会への不満書くのがいいかと
997 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:00:59.18 ID:rtVxM/0K.net]: 書いてる内容で年収わかるなんてすごいですね
そもそもここは質問スレなんだから質問とその回答以外を書く方がおかしくね
>>981はもしかしたら質問かもしれないから念のため>>982の回答をしてみたんだが
998 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:19:25.23 ID:LGax4AHG.net]: すごいだろ
でも書いてる内容見りゃお前が間違いなく底辺なのがわかっちゃうんよ
それを回答と言ってる時点で知能指数もしれてるわな
999 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:45:11.73 ID:hm9t4j8O.net]: まあ目くそ鼻くそだけどな
1000 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:57:16.96 ID:rtVxM/0K.net]: 同年代の年収の平均値・中央値よりもぜんぜん上だけどまあ言わせておくよｗ
>>988
ほんとその通りな
ワッチョイありの頃はそれなりに回ってたけどワッチョイなしで立てたクソ野郎のせいで
VBA質問スレは無関係のことしか書かないカスみたいなやつのたまり場になっちまったわ
1001 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 22:00:08.95 ID:iuWp6cF1.net]: >>989
ワ有りと無しは同時に存在することが許されるし
ワ有りスレもあるのにここに居続けてるのは自身の選択だろとしか
1002 名前：デフォルトの名無しさん [2023/05/30(火) 22:14:49.50 ID:D1ASN+X8.net]: とりあえず納得するものが作れたと思います
少なくとも自分がどんな操作も受け付けるマクロやブックを作っておきながらそれを使用する人に対してキチガイという人には負けたくありません
1003 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 23:08:53.36 ID:LGax4AHG.net]: wをつけだしたらおわりだわ
1004 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 23:17:06.57 ID:LGax4AHG.net]: 平均値中央値よりもぜんぜん上
こんなこっぱずかしいレスをネットで久しく見た
1005 名前：デフォルトの名無しさん [2023/05/31(水) 00:42:56.05 ID:Akn6fcLj.net]: 必要な操作をできる人、理解している人が行う
とか
シートを保護する
とか
そう言う事は禁止らしいんですよ
どうしても理解度がバラバラの作業者にやらせたいらしいです
1006 名前：デフォルトの名無しさん [2023/05/31(水) 00:44:54.70 ID:Akn6fcLj.net]: きっと記入例シートに　みほん　とデカデカと透かし図を貼り付ける事も　シートを保護する事も禁止なんだと思います
1007 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 01:13:44.98 ID:zw3Mw+mP.net]: じゃあ次スレはﾜｯﾁｮｲ有りにすればええやん
今がチャンスだぞ
1008 名前：デフォルトの名無しさん [2023/05/31(水) 01:17:01.07 ID:5IfBNuLp.net]: いやワッチョイスレあるから

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

ダメなら立てなきゃいいんじゃないの？
1009 名前：デフォルトの名無しさん [2023/05/31(水) 01:27:46.77 ID:Akn6fcLj.net]: この間の銃殺事件があってもまだ誹謗中傷を続けるの？
1010 名前：デフォルトの名無しさん [2023/05/31(水) 03:53:32.03 ID:ul21zY0k.net]: このスレを立てた爺の正体
↓

掲示板でのケンカが孤独感を薄めてくれる

零細企業勤めで結婚もしておらず、交流する友人もいないが、「ネットが趣味なのが救いだ」と話す。

「掲示板サイトに書き込んだり、VBAはわかりませんが、日本語ワープロに詳しいと自慢したり、チャットGPTを使ったり……いい話し相手になってくれるんですよ。たまに掲示板でケンカもしちゃうんですが、それが孤独感を薄めてくれているのかもしれませんね」

ネット書き込みの裏には孤独を抱えた高齢者の姿がある。

―［中高年［貧困と孤独］の実態］―
1011 名前：デフォルトの名無しさん [2023/05/31(水) 03:54:06.20 ID:ul21zY0k.net]: ----
1012 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 122日 16時間 7分 19秒
1013 名前：過去ログ ★ [[過去ログ]]: ■ このスレッドは過去ログ倉庫に格納されています

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef