23/02/20 15:29:44.23 2ZMpD8wr.net
エクセル形式で保存してください
201:デフォルトの名無しさん
23/02/20 18:06:18.64 Y+9TMPzL.net
vba以前の問題というか無知な質問でごめん
転職先で会社からUSBメモリを配布されたから
自宅のPCでマクロ作ってxls形式、xlsm形式の両方で会社のPCに移して使おうとしたら何度やってもアクセシビリティの利用不可？で無限ループのごとくフリーズ
タクスマネージャから強制終了
セキュリティで弾かれてますか？
202:デフォルトの名無しさん
23/02/20 18:09:31.33 O/Xt15uK.net
自宅で作ったプロシージャをtxtとかで会社メールに送ってそこで新しく作って標準モジュールとかに入れてけば出来る？
忙しすぎて会社で試せてない
203:デフォルトの名無しさん
23/02/20 20:29:16.39 SOlJ2Ite.net
>>198
分かりません
>>199
分かりません
204:デフォルトの名無しさん
23/02/20 20:37:46.69 sKNUAhyw.net
セキュリティの厳しい会社だと、メールや添付ファイルに何らかのプログラムが書いてあると自動的に削除される
205:デフォルトの名無しさん
23/02/20 21:03:48.15 KZiGFVej.net
なんで赤の他人にそんなセキュアな疑問訊ねるかな？社内規定でどう扱えばいいかUSB渡されたとき聞いてなかったのか
勝手なことしてるとまたすぐ転職する羽目に陥るぞ
206:デフォルトの名無しさん
23/02/21 12:00:15.73 QtuhzazS.net
どなたかVBAでのレジストリ操作についてわかる方いたら教えてください。
以下の方法を試しましたが、取れる値と取れない値がありました。
取得したい値の読み取り権限も許可してもうまくいかず。。。
・WScriptのRegRead()メソッド
・api
・bat
色々切り分けたところbatファイルを単体で実行したときには取得できて
VBAからbatファイルを実行すると値が取得できないので
VBAの実行権限に問題があるのではと考えていますが
権限とか関係なしにapiでどこでも取得できるよとか
何かご存知の方いたらコメントお願いします。
207:デフォルトの名無しさん
23/02/21 12:02:26.74 QtuhzazS.net
連投すみません
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft配下の
値を取得できない状況です
208:デフォルトの名無しさん
23/02/21 12:23:42.75 O9yVRoe+.net
>>203
VBAで昇格は無理だからコマンドライン呼び出せ
209:デフォルトの名無しさん
23/02/21 12:58:35.82 QtuhzazS.net
>>205
回答ありがとうございます。
コマンドラインで呼び出すというのは
以下コードのように実行結果を取得する感じですかね。
試してみたところ、実行結果が空白で返ってきたのですが
基本的にはレジストリのどの値も取得できるのでしょうか？
'実行するコマンドを指定
command = "ping 192.168.10.1"
Set wsh = CreateObject("WScript.Shell")
'コマンドを実行
Set execObj = wsh.exec("%ComSpec% /c " & command)
'コマンドの実行結果を取得
commandResult = execObj.stdOut.ReadAll
210:デフォルトの名無しさん
23/02/21 13:01:26.92 QtuhzazS.net
pingの実行結果は返ってきますが
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft" /v "指定の場所"の
結果が返ってこないです。
211:デフォルトの名無しさん
23/02/21 13:15:24.72 fHD8EY4F.net
まるごと不可？
部分的に不可？
212:デフォルトの名無しさん
23/02/21 13:16:41.22 QtuhzazS.net
>>208
まるごと不可です
213:デフォルトの名無しさん
23/02/21 13:17:37.19 O/2CEwvU.net
>>207
コマンドは管理者権限で実行せんとあかんのと違う？
214:デフォルトの名無しさん
23/02/21 13:40:16.54 QtuhzazS.net
5か所くらい検証してみたら部分的にとれないが正解でした。
× "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\InstallRoot"
× "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\WinSqmFirstSessionStartTime"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Palm\DelayManipulationDuration"
○ "HKEY_LOCAL_MACHINE\SOFTWARE\Apple Inc.\Apple Application Support\InstallDir"
215:デフォルトの名無しさん
23/02/21 15:07:37.73 fHD8EY4F.net
win10とvsとvbaで試してきた
LOCAL_MACHINE
"SOFTWARE¥Microsoft¥Cryptography"
"MachineGuid"
RegGetValueWで読めた
216:デフォルトの名無しさん
23/02/21 15:32:26.88 QtuhzazS.net
凄いですね・・・
もう一つの方も行けましたか？
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\
217:デフォルトの名無しさん
23/02/21 15:44:36.64 fHD8EY4F.net
Option Explicit
Declare PtrSafe Function RegGetValueW Lib "advapi32.dll" ( _
ByVal k As LongPtr, _
ByVal s As LongPtr, _
ByVal v As LongPtr, _
ByVal f As Long, _
ByVal t As LongPtr, _
ByVal d As LongPtr, _
ByVal n As LongPtr) _
As LongPtr
Sub DoRegTest()
Dim b(0 To 2048) As Byte
Dim n As Long
Dim r As LongPtr
Const HKEY_LOCAL_MACHINE = &H80000002
n = 2048
r = RegGetValueW( _
HKEY_LOCAL_MACHINE, _ StrPtr("SOFTWARE\Microsoft\Cryptography"), _
StrPtr("MachineGuid"), _
2, _
0, _
VarPtr(b(0
218:)), VarPtr(n)) End Sub ↑この感じでSZ型のキーを読み取った
219:デフォルトの名無しさん
23/02/21 16:08:56.75 QtuhzazS.net
>>214
ありがとうございます。
提示していただいたもので実行してみたところ
戻り値が2でシステムエラーコードで確認すると
「システムは、指定されたファイルを見つけることができません。」
となっていました。
となると、こちらの環境的な問題ですかね。。
220:デフォルトの名無しさん
23/02/21 16:16:03.43 QtuhzazS.net
>>214
無事取得できました！
本当にありがとうございます。
お手数おかけしました。
221:デフォルトの名無しさん
23/02/21 19:33:10.83 JTliHuKO.net
>>199
>忙しすぎて会社で試せてない
お前はいったい何をやっているのだ？VBAは仕事ではないのか？会社で試すのは仕事ではないのか？
メール開く時間すらないほど忙しい会社なのか？インポートやエクスポートを知らんのか？
222:デフォルトの名無しさん
23/02/22 01:16:47.41 9VE/T3g1.net
あぼーん
223:デフォルトの名無しさん
23/02/23 14:40:13.33 NwCSUcmQ.net
俺は昨日は余計なメール開く時間も惜しいほど忙しいかったな
まあそんな日もある
224:デフォルトの名無しさん
23/02/23 19:25:49.13 DX82pz52.net
それも仕事
225:デフォルトの名無しさん
23/02/23 21:49:11.96 d94eSRWI.net
ほどほどに忙しいうちが花と言われたからからね。
暇すぎはストレス溜まるし忙しすぎは思考停止する。
226:デフォルトの名無しさん
23/02/25 08:44:32.62 QsBdGNRz.net
VBAを使ってることは誰にも言わず
その日が期日の業務だけサッと終わらせて
後はゲームなり昼寝なりしてるけどストレスフリーよ
メールチェックとかはくだらん定例ミーティングの裏でやる
227:デフォルトの名無しさん
23/02/25 09:53:04.96 aIZzN5su.net
「暇すぎはストレス溜まる」
これアホちゃう？
いままでの人生でそんな思考になったことは一度もない。
暇ならそれに感謝するだけ。
嬉しくてしかたがない。
人生にはやりたいこと楽しいことがたくさんあるんだから
それに暇な時間をそそぐだけでいい。
忙しいのは嫌い。
なぜ貴重な自分の時間をやりたくないことに使わなきゃいけないの。
228:デフォルトの名無しさん
23/02/25 13:54:24.69 JD4Ctbem.net
君にもそのうちわかるよ わからなかったらそこまでだったってこと
229:デフォルトの名無しさん
23/02/25 16:49:36.83 DoqH+M+N.net
社会に出たことない引きこもりの思考またはよほど待遇の良い会社にいるのかどっちかだな。
暇すぎってことは仕事を見つけなければならないんだよ。
他の人の仕事手伝うとか。
230:デフォルトの名無しさん
23/02/25 17:09:52.04 aIZzN5su.net
経営者じゃなけりゃ
同じ時間で給料同じなんだから
ヒマ(楽)ほどいいのは決まってるじゃん。
アルツハイマーでもこれくらい分かる。
231:デフォルトの名無しさん
23/02/25 17:27:31.08 CGMlwC4Y.net
「暇」と「楽」が同じと思ってる時点で精神が子供だな
いや実際未成年なのかもしれないけど
232:デフォルトの名無しさん
23/02/25 22:46:11.32 DoqH+M+N.net
暇だー ←まともな神経なら上席に相談するでしょ？
例「係長、今、自分の仕事が終わって手が空いたのですが、この後何かお手伝いする事ありますか？」
まあアルバイト止まりの未成年君には分からないか指示待ちだもんね。
233:デフォルトの名無しさん
23/02/25 23:57:06.22 E1i3tKVi.net
Sub testest()
Dim z0 As LongLong
z0 = 356 * 100
End Sub
「オーバーフローしました」になるんだが
234:デフォルトの名無しさん
23/02/26 00:11:42.16 sdffjS8S.net
>>228
すごい洗脳的な思考だな
まぁ立派なポチになってくれ
235:デフォルトの名無しさん
23/02/26 00:19:21.95 YMJUJbfk.net
>>229
それVBAのバグに近い仕様
定数は内部で勝手にInteger型に変換されるからすぐにオーバーフローする
もっとわかりやすい例だと右辺が 32767 + 1 でもエラーになる
対策としては全部の定数を先に変数に入れておくなどいくつかある
236:デフォルトの名無しさん
23/02/26 00:20:37.48 /hhgnOlt.net
>>229
数字の後ろに型宣言文字の ^ を付けるといい
237:デフォルトの名無しさん
23/02/26 01:36:14.44 tp9OjsHC.net
>>231
これをバグだと思うお前の頭がおかしい
238:デフォルトの名無しさん
23/02/26 05:06:33.26 eudL/KWJ.net
>>230
あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。
社会に出ればこんなの当たり前だから。
人よりも仕事は早くこなして次のタスクを行う。
そうやって「評価」というものを受け取れるんだよ。
239:デフォルトの名無しさん
23/02/26 08:24:55.67 ohKfmJY8.net
>>230
処世術を知らんのか
240:デフォルトの名無しさん
23/02/26 08:53:33.45 eudL/KWJ.net
相手しない方が良いよ。
何せ社会を知らない奴なんだから。
241:デフォルトの名無しさん
23/02/26 14:38:38.79 3Cr/hlVm.net
>>234
自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。
仕事は自分で見つけるもんやで？
そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん
242:デフォルトの名無しさん
23/02/26 16:26:56.12 eudL/KWJ.net
本当に社会知らないんだな？
>>237
自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」
て言われるのが社会なんだよ。
良く覚えとけよ。
243:デフォルトの名無しさん
23/02/26 21:51:00.91 fkbOU0Ua.net
>>216
今日になって気付いた
戻り値は4バイト整数だったごめん…
244:デフォルトの名無しさん
23/02/28 15:08:20.31 NXRHGwBO.net
>>238
世渡り上手で仕事せずともいられるって人もいるけどな
前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、
こういう漫画みたいな人いるんだなーと思った
レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか
245:デフォルトの名無しさん
23/02/28 16:02:16.29 chlNPmFa.net
すげえww罪悪感のカケラもないその神経を見習いたいわ。
まあ、環境にもよるんだろうね。
自分の職場はみなクッソ真面目の堅物ばかり。
246:デフォルトの名無しさん
23/02/28 16:07:15.89 YzUXpdVm.net
そんな人がこんなスレ訪問するはず無いだろ そんなヒマあったらサボってる
247:デフォルトの名無しさん
23/03/02 03:52:23.34 wSjrNglr.net
ヒマがあったらサボってる？
普通に考えればサボっているからヒマになるのでは？
248:デフォルトの名無しさん
23/03/02 06:53:32.06 J6gUWTNI.net
お、おう。
249:デフォルトの名無しさん
23/03/02 11:19:20.68 iwViG7Fn.net
せめてヒマの意味調べようよ 意味も知らずに話ししてんのか そりゃあ、話し掛けられた相手も困惑することだろうに
250:デフォルトの名無しさん
23/03/03 02:31:42.07 LaDEEyjy.net
に ほ ん ご ほ う か い
251:デフォルトの名無しさん
23/03/03 07:47:29.44 E3REpsyj.net
まったく最近の老害ときたら…
252:デフォルトの名無しさん
23/03/03 12:40:49.00 /y/rr2Lo.net
逆に若い方が間違った日本語を平気で使ってるよ
勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね
253:デフォルトの名無しさん
23/03/03 15:00:36.88 LaDEEyjy.net
いや、最近の若いのは分別しっかりしているでしょ。
年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？
254:デフォルトの名無しさん
23/03/03 15:14:44.70 an7QtCXR.net
老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる
255:デフォルトの名無しさん
23/03/03 18:54:13.51 /y/rr2Lo.net
政治家の老害の方が酷いから社内で経験のある定年前のおっさん程度なら気にならんよ
256:デフォルトの名無しさん
23/03/03 23:49:56.23 k/H9X4nF.net
若者はとか年寄りはという括りで決めてしまうことに何の疑問も持たないのが不思議でな
解ってて話しているならいいけど本気で言ってそう
257:デフォルトの名無しさん
23/03/04 07:57:41.77 8//TjMOu.net
若者だろうが年寄りだろうが関係なくね？
若者でもダメなヤツはダメだし年寄りでもめっちゃリスペクトできる人もいるしな。
258:デフォルトの名無しさん
23/03/04 13:24:30.21 HiKr/1U9.net
普段何を見て育ってきたかが違いすぎて関係ないなんてことはないと思うなあ
259:デフォルトの名無しさん
23/03/04 14:32:34.86 nF/g30df.net
周りにダメな奴がいてダメでない奴もいるとして
その中で自分がダメな奴と一緒になるのか、ダメにならない様に努力するのかが重要になってくる
それと明らかに攻撃してくる相手なら敵と認識して反撃もやむをえない
260:デフォルトの名無しさん
23/03/04 15:11:12.05 8//TjMOu.net
悪かった
年寄りで１番タチ悪いクセは、大人しいタイプで反抗してこない若者をいじめるクセがあるのは何回も見ている。
それはダメだわな。
261:デフォルトの名無しさん
23/03/04 15:37:01.51 z+cjlQY2.net
ここは>>1がじぶんのために立てたスレッドだが、彼は仕事が出来ないのがバレてクビに成ったのか？
丸々一ヶ月音信不通だが 本を一所懸命に読んでる真っ最中なのか？
262:デフォルトの名無しさん
23/03/04 19:52:37.48 nF/g30df.net
>>256
与党が少数意見を無視して増税してきたのは何回も見ている
見ているだけだから問題ないのかな？
263:デフォルトの名無しさん
23/03/04 21:46:53.40 h6QEfyIh.net
ここ何のスレだっけ
264:デフォルトの名無しさん
23/03/05 03:17:25.93 d3m+m4y0.net
>>259
クソスレ
265:デフォルトの名無しさん
23/03/05 17:06:46.67 vENEE6dG.net
985 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 11:47:07.68 ID:mBQ16TA8r [9/9]
はい建てた
Excel VBA 質問スレ Part79
ｽﾚﾘﾝｸ(tech板)
996 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b01-hj3w)[sage] 投稿日：2023/01/28(土) 12:09:25.98 ID:NqcfPhRT0 [5/6]
To: 各位
無能の働き者がワッチョイ無しで次スレ立てちまったんだがどうする？
ワッチョイありで立て直す？
997 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 12:10:22.95 ID:XR4zA44Nr [7/8]
>>996
俺のAIが自動的に削除してたわw
266:デフォルトの名無しさん
23/03/06 01:00:13.14 1WgjQ7Bk.net
そのうちここもあぼーんの嵐になるわさ
267:あはーん
23/03/08 20:49:17.55 szyRCS8l.net
あはーん
268:デフォルトの名無しさん
23/03/09 00:30:01.95 D1VDY6UW.net
おぼーん
269:150
23/03/10 12:55:22.35 QfDmbcex.net
=if(isnumber(match(b1,a5:a31,0)),"ok","bad")
これをVBAで実現するにはどうすればいいか教えて欲しいです
270:デフォルトの名無しさん
23/03/10 20:00:52.25 eEaylvqx.net
>>265
その式で希望通りの結果ならそのままのほうがいいよ
271:デフォルトの名無しさん
23/03/10 20:37:16.92 iWPdLzMM.net
わざわざVBAでやる必要ないモノは関数で良いしね
272:デフォルトの名無しさん
23/03/10 21:01:29.17 WMCxZwMq.net
worksheetfunctionで済むならその方がいいよ
最終的に実現したい方法を教えてくれるか
それとも単純にvbaでどうなるか知りたいかならそういってもらえれば
273:デフォルトの名無しさん
23/03/10 21:50:33.66 IaGJxF6U.net
ChatGPTへ条件を指定するの難しい・・・
日本語が下手で嫌になる
分かりやすいサイトとかyoutubeチャンネルとかある？
274:デフォルトの名無しさん
23/03/10 22:56:34.60 WMCxZwMq.net
>>269
日本語が下手ならchatgptに推敲してもらえばいい
ってかそもそもChatGPTはそもそもコード生成向いていない
ChatGPTのエンジンはgpt-3
本当にコード生成に向いているエンジンはcodex
275:デフォルトの名無しさん
23/03/11 04:47:16.82 ZWvVNp1O.net
ChatGptが作ったコード、なかなかいい感じだが
276:デフォルトの名無しさん
23/03/11 14:42:28.64 SdsqzSUo.net
使いたければ使っていればいい、よそのスレで宣伝する必要なくね
277:デフォルトの名無しさん
23/03/11 15:31:38.67 QVD3K1L3.net
ここは1000行ったらもうそれっきりのスレだから 雑談してりゃいいんだ
278:デフォルトの名無しさん
23/03/11 17:37:12.30 GdTACZTW.net
VBAコードをカラー印刷する方法はありますか？
パソコンで見ると目が疲れるし、気付きにくいこともあるので紙で見たいのです。
279:デフォルトの名無しさん
23/03/11 17:59:17.42 QVD3K1L3.net
やれやれ
URLﾘﾝｸ(forest.watch.impress.co.jp)
おまけ
URLﾘﾝｸ(excelshogikan.com)
もひとつ
URLﾘﾝｸ(tonari-it.com)
もいっちょ
URLﾘﾝｸ(koukimra.com)
なんか、いっぱい出て来る
URLﾘﾝｸ(excel.syogyoumujou.com)
VBEの[ツール]－[オプション]－[エディタの設定]でも、フォントを濃い色にしとかないと印刷しても薄っすいだろうけど
それすると今度は画面がギラついて目に優しくない状況に陥ったりするだろうし いろいろ試して自分の好みで
280:デフォルトの名無しさん
23/03/11 20:46:11.23 GdTACZTW.net
>>275
たくさん貼っていただきありがとうございます。
2番目のツールはHTML化で変換出来なかったんですよね。
最後のアドインのだけカラーで出来るようなのでこちらを使ってみます。
281:デフォルトの名無しさん
23/03/13 20:32:20.84 VmVu1UJJ.net
ChatGPTにVBAでこんな感じに出来ませんか？と質問するとしっかりとしたコードを書いてくれる
282:デフォルトの名無しさん
23/03/13 21:20:54.07 pwuv7WPr.net
Chatgptが普及すれば初級者とか関係なく誰でも高度な事ができるようになるよね。
もはや「Excelできまーす！高度なコード書けまーす！」が通用しなくなる時代が来つつあるな。
283:デフォルトの名無しさん
23/03/13 21:34:37.42 rU40dayx.net
このスレのスレ立て人ディスってんのか？
Excelできます枠で中途入社しときながら、まるきしわからんちんでExcel VBAスレに泣き付いて
質問をキッカケに主人公にでも成ったかのような勘違いしてこの無駄スレ立ててしまった伝説のあいつを？
284:デフォルトの名無しさん
23/03/13 21:35:17.25 +WoIzVW7.net
零細企業のVBAすら書けない無能には間違いがあってもわからんだろうがな
285:デフォルトの名無しさん
23/03/14 12:24:47.61 LCy+s25l.net
これからはリストラが大量に出るだろうね
エクセルの先生()からプログラマー()までPCとにらめっこする仕事は全部ChatGPTで済む虚業ってバレたんだから
286:デフォルトの名無しさん
23/03/14 12:37:28.99 goR8feNU.net
そう思い込むことで、カキコ本人にはどんなメリットがあるんだ？
個人の感想でしかないものにすがるしか、自我を保てないンか？
そんなメンタルならExcel使う事を辞めた方がいいぞ？
そんな得体の知れないものに頼らざるを得ない企業も長続きはしなくなるだろ
会議の席にAI同席させるンか？
287:デフォルトの名無しさん
23/03/14 12:47:00.26 LCy+s25l.net
AIに任せるようになった企業が長続きしないというのはそちらの感想だよね
会議にAIも参加させられない企業と会議にAIが参加できる企業のどちらに柔軟性があるかは明白
288:デフォルトの名無しさん
23/03/14 12:51:49.78 IeRCsjIL.net
AIも道具の一つに過ぎない
289:デフォルトの名無しさん
23/03/14 13:06:56.83 goR8feNU.net
長年いろんな企業を見てきた経験からだ 個人の感想じゃねえ
マンパワーの重要性を認識できない上の方が居たら、大抵足許から崩れてく
会議の席でAIが「できます」っつったら任せるのか？それでコケた場合誰が責任取るんだ？
絵空事夢見て妄想に浸るのは勝手だが、企業もいきもの 維持し続けるための道具としてなら
使いたきゃ使えばいいが、病んだ時のリカバリーにはどうしても人の手は必要（当面は）
例えば、悪天候で電車止まった、架線が切れたようだ 四六時中稼働できる修理ロボットの出番だ！ なんて時代はまだまだ先
必死でそういう時代が来るよう努力し続けるのは否定しないが、どうせそうなるんだから今から仕事放棄 は、ただのあほう
290:デフォルトの名無しさん
23/03/14 13:27:13.02 ZglUMoKm.net
理性的に考えれば今の時代は暗黒だから冷凍人間にでもなって輝かしい未来に解凍してもらうのが正解
291:デフォルトの名無しさん
23/03/14 13:30:38.03 LCy+s25l.net
今置き換えられるのはPCとにらめっこする仕事って限定してるんだが
勝手に読み替えられても困る
292:デフォルトの名無しさん
23/03/14 13:49:04.92 2BnTQRjU.net
これだけは言える
そこらの並のPC教室や素人に毛が生えたインストラクター(笑)は間違いなく淘汰される。
293:デフォルトの名無しさん
23/03/14 14:25:56.84 28TiEHhw.net
こちらでよろしいでしょうか。すみません。
エクセルで、
「ＳＵＭ関数」かつ「０が表示」のセルを、
選択する事は可能でしょうか。
294:デフォルトの名無しさん
23/03/14 16:50:49.76 goR8feNU.net
[ホーム]タブにある「検索と選択」で、検索をクリックして、検索する文字列に SUM ではダメなのか？
[ファイル]の[オプション]、[詳細設定]で □ ゼロ値のセルにゼロを表示する(Z)のチェックに限らず
=SUM( のセルを次々選択してくれるが？ "かつ" の条件を満たさないとどうしてもイヤ！なのか？
Sheetの至る所に＝SUM( がありまくりで絞り込みたいとか？ 「0が表示」という日本語も変だけど
[オプション]での設定はBook全部に影響したと思うのだが
295:デフォルトの名無しさん
23/03/14 17:40:35.43 +v1A3gMG.net
>>285
経験なんて個人の感想の寄せ集めだぞ
同レベルの概念とわかってない時点で論外、やり直し
296:デフォルトの名無しさん
23/03/14 18:40:07.15 1O8NxYp2.net
>>289
フィルタで0を指定してからsumで検索すれば行けそう
297:デフォルトの名無しさん
23/03/14 19:37:13.34 28TiEHhw.net
>>290様
仕事で、料理の数の合計を出しています。料理の数の入力が
ないセルは「空白」ですから、選択オプションで「空白セル」を
チェックし、「空白のセル（列）」をすべて非表示にできました。
最後は、自動で「ＳＵＭ関数」かつ「（合計が）０の表示」のセルを
選択し、セル（列）を非表示にしたいのです。手動でやれよって話
かもしれませんが、マクロで自動化ってできるものなのでしょうか。
298:デフォルトの名無しさん
23/03/14 20:05:55.83 28TiEHhw.net
>>292様
>>フィルタで0を指定してからsumで検索すれば行けそう
確認しました。列にならできると思います。しかし、
行方向のセルにフィルタをかける事はできませんでした。
行の一定の範囲のセルを選択したいです。行にフィルタを
かける事はできませんでした。行と列を入れ替えて、列に
フィルタをかけ、最後に行と列を入れ替えたらよいですか。
299:デフォルトの名無しさん
23/03/14 20:38:11.33 8uN0bEAR.net
>>289
各列の1行目にsum関数があるとして、
その合計が0ならその列を非表示にするというマクロならこんな感じか。
(データがどこまであるかわからんからとりあえずA列からF列までを対象にしてる)。
Sub 列を非表示()
Dim i As Long
For i = 1 To 6
If Cells(1, i) = 0 And Cells(1, i).HasFormula = True Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
sum関数かどうかまでは判定していないから
sum関数以外の関数が入っていてその値が0なら
その列も非表示になる。
後はどのセルに関数が入っているかわからんから
そこらへんは調整してくれ。
300:デフォルトの名無しさん
23/03/14 20:42:07.34 goR8feNU.net
セルを非表示 という書き方が戸惑う元だけど
>>290 の二行目に書いた Sheet上の0の値を[0]表示させない方法ではダメなのか？
SUMの結果が0のケースでも、0とは表示されず空白になるんだが？
セルの書式設定で ;;; にすることでセルの非表示ということらしいが、結果は変わるのか？
手元のExcelで試しているけど、どういう結果が欲しいのか分からんから戸惑ってる
わざわざ空白セルも非表示にする必要がさっぱりわからん 背景色とかが絡んで来る？ 印刷時？
301:デフォルトの名無しさん
23/03/14 20:51:19.35 28TiEHhw.net
>>295様
これが具体的なＶＢＡコードですね！ありがとうございます。
説明不足でややこしくてすみません。
とりあえず、本やネットを見ながらコードを参考にし、実践
してみようと思います。皆様ありがとうございました。
302:デフォルトの名無しさん
23/03/14 21:06:36.93 28TiEHhw.net
>>296様
おっしゃる通りで、表示させない方法で空白になりました。;;を使っても０が表示されず、
空白になります。この状態で、行の一定の範囲を選択して、選択オプションで「空白セル」
にチェックを入れます。しかし、「ＳＵＭ関数かつ空白」が選択されず、列を非表示に
できません。ＳＵＭ関数があると空白と認識されないようです。
>>わざわざ空白セルも非表示にする必要がさっぱりわからん 印刷時？
おっしゃる通りです。空白のセル（列）を非表示にし、印刷しないためです。
303:デフォルトの名無しさん
23/03/14 23:37:15.42 WthbhZLX.net
聞く方も答える方も馬鹿で頭が痛くなる
このスレを立てた奴の頭のレベルの程度のせいか？
304:デフォルトの名無しさん
23/03/15 00:01:55.44 Ogi5eYUO.net
>>299みたいなのが賢いムーブなんですね、参考になります
305:デフォルトの名無しさん
23/03/15 07:40:00.44 dWb1Fnpz.net
送られてきたEXCELファイルの特定のセルにある文字列や数値を別のブックにある表シート(特定のセル)に反映させてデータを自動集計したい。
この場合どのようなコードが必要ですか？
306:デフォルトの名無しさん
23/03/15 10:52:57.27 bng7Ef1J.net
>>299
なぜ馬鹿の質問に馬鹿が答えてるのを見るとお前の頭が痛くなるのか因果関係を説明せよ
>>301
全然わからないならあきらめるか、初心者向けの本でも読んでもう少し自力でできるようになってからだな
307:デフォルトの名無しさん
23/03/15 12:05:57.01 VvC5BQRV.net
>>301
そういうのは今はChatGPTに聞いた方が早いかと。
その質問をそのままコピペ、VBAのコードでと聞いたらこんな風に返ってきた。
VBAを使用して、Excelファイルから特定のセルの値を抽出し、別のブックにある特定のセルに値を反映させるには、以下のようなコードを使用できます。
Sub copyCellValue()
Dim srcBook As Workbook
Dim destBook As Workbook
Dim srcSheet As Worksheet
Dim destSheet As Worksheet
Dim srcRange As Range
Dim destRange As Range
'コピー元のブック、シート、セルを指定
Set srcBook = Workbooks.Open("path/to/source_file.xlsx")
Set srcSheet = srcBook.Worksheets("Sheet1")
Set srcRange = srcSheet.Range("A1")
'コピー先のブック、シート、セルを指定
Set destBook = Workbooks.Open("path/to/destination_file.xlsx")
Set destSheet = destBook.Worksheets("Sheet1")
Set destRange = destSheet.Range("B2")
'コピー元のセルの値をコピー先のセルに反映
destRange.Value = srcRange.Value
'ブックを閉じる
srcBook.Close
destBook.Close
End Sub
308:デフォルトの名無しさん
23/03/15 13:19:10.47 jS5g/06S.net
chatGPTの亜流がどんどんでてきたな
URLﾘﾝｸ(ronpagpt.jp)
309:デフォルトの名無しさん
23/03/15 14:24:15.02 /7ImdP24.net
>>303 AIはすごいね AIはさすがだよ AIにその回答を導き出させた>>303はもっとすごい
310:デフォルトの名無しさん
23/03/15 17:36:50.88 d5qN4lxo.net
>>305
要件を満たしていないだろ
お前、このスレを立てた零細企業のバカだろ
311:デフォルトの名無しさん
23/03/15 18:04:03.00 /7ImdP24.net
いや、AIはすごいんだって だってたちどころに回答するんだぜ？
どんな難問投げ掛けられたって、おちゃのこさいさいで即座にだよ？すごいじゃないか
やっぱAIには敵わないね でもそのAIを容易に使いこなせる>>303は、ほんとすごいんだよ
こかれらもこまったことがおきたらぜんぶ>>303にそうだんすればいいよ ぜんぶアッ！といまうだよ
>>303そこがかみだよだってAIあつやれるんだのもきとっすいごおきゅりうょうもっらてんるだろ
312:デフォルトの名無しさん
23/03/15 18:41:01.53 X44VfF2/.net
やっぱり零細企業の馬鹿本人かよ
313:デフォルトの名無しさん
23/03/15 19:56:07.69 cZ1DNOu4.net
>>296様 皆様
やっと「ＳＵＭ関数かつ０が表示」を選択する事が
できました!!!これでムダな列を自動的に非表示にできます。
①一定の範囲のセルを選択 ②検索で「０」の値を検索
③検索結果をクリック ④ctrl+Aですべてを選択
大変お騒がせ致しました。本当にありがとうございました。
314:デフォルトの名無しさん
23/03/15 20:16:56.49 /7ImdP24.net
やりたいことが分かってから意見書くのも、なんか憚られるが
それ、横方向に並べ替えすれば合計欄0のだけ端っこにまとまるから、それで一気に列の非表示すればよくね？
元データが料理の種別とかで固定だから並べ替えなんか「成りません！」てなら別だけど
それでも何かを基準に左に詰めたりできそうな気がするんだが
URLﾘﾝｸ(sakusaku-office.com)
URLﾘﾝｸ(webpt.jp)
315:デフォルトの名無しさん
23/03/15 20:47:00.15 V0E4/N1Q.net
馬鹿が考える方法は馬鹿な頭から出てくる馬鹿な方法だからまともに相手にするのが間違い
馬鹿が質問すると荒れるから迷惑
316:デフォルトの名無しさん
23/03/15 21:59:25.48 jS5g/06S.net
>>307
そのAIから
URLﾘﾝｸ(i.imgur.com)
317:デフォルトの名無しさん
23/03/15 23:05:20.69 xu8ICwau.net
ジジババって最新の技術をすぐ小馬鹿にするよね？
318:デフォルトの名無しさん
23/03/15 23:58:49.40 cjZorZVQ.net
最近の馬鹿って自分が馬鹿なことに気づかないの？
319:デフォルトの名無しさん
23/03/16 00:27:14.17 434mvrOL.net
>>312
ワロス
320:デフォルトの名無しさん
23/03/16 02:07:32.51 B5SNFDHd.net
さっきから何あぼーんの嵐(笑)
321:デフォルトの名無しさん
23/03/16 10:36:22.46 N2/NSeFa.net
馬鹿はエントロピーが大きい状態
エントロピー増大の法則
322:デフォルトの名無しさん
23/03/16 11:33:40.43 w6mQ50Ij.net
コードの保存はどうしている？
ChatGPTで色々と変更しながら書いてもらっているけど、過去のも残しておきたいが
ぐちゃぐちゃになっている。
323:デフォルトの名無しさん
23/03/16 11:38:54.15 6Wkwlpg5.net
そこにメモ帳があるだろ
324:デフォルトの名無しさん
23/03/16 13:04:45.51 s5XEFQZu.net
>>318
毎回最初から最後まで書いてもらえばいい
もう保存とかアホらしくなってきた
325:デフォルトの名無しさん
23/03/16 15:49:40.74 hTqOV0Oo.net
間違えた回答をありがたく保存するのかよ
326:デフォルトの名無しさん
23/03/16 17:03:31.67 pLTmwSf1.net
VBA で1を1stに変換する関数ないの？
327:デフォルトの名無しさん
23/03/16 17:49:19.70 dPl9ROvM.net
Excel VBAにはない
Access VBAなら専用の関数がある
328:デフォルトの名無しさん
23/03/16 18:00:58.62 Loiq54un.net
>>322
VBAでよければ
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
ちえぶくろだけど ７年前
329:デフォルトの名無しさん
23/03/16 21:12:18.58 wf1v+CLj.net
>>322
ワークシート関数で出来るらしい。
=A1&IF(OR(MOD(A1,100)={11,12,13}),"th",CHOOSE(MIN(5,RIGHT(A1)+1),"th","st","nd","rd","th"))
20までならもっと簡単になるみたいで。
=A1&LOOKUP(A1,{0,1,2,3,4;"th","st","nd","rd","th"})
上記の数式をVBAからWorksheetFunction関数で使う手も。
330:デフォルトの名無しさん
23/03/18 21:04:59.58 Rz29PTI+.net
>>322
どこまでの値をカバーするか、どういうデータか、によっては、既に書かれているとおりワークシート関数でも事足りるよ
なお本当に1を1stにするだけだったらワークシート関数のSUBSTITUTE使えばいい
331:デフォルトの名無しさん
23/03/18 21:17:55.87 Za4MxO2H.net
1 → 1st
11 → 1st1st
101 → 1st01st
332:デフォルトの名無しさん
23/03/18 21:57:25.24 AwqZu1PH.net
スクショを貼り付けしてトリミングするまでのマクロ使ってるんですが
トリミングした不要な部分を削除
を追加する事ってできますか？
333:デフォルトの名無しさん
23/03/18 22:53:09.64 X3/sx5T9.net
マクロでやる必要ある？
334:デフォルトの名無しさん
23/03/19 10:30:21.74 fsx9oQpt.net
>>329
毎回、図のトリミング部分を削除するのが手間でマクロでやってしまいたい
335:デフォルトの名無しさん
23/03/19 11:14:17.24 T5Hyor/5.net
［Win］+［Shift］+［S］キー とかでスクショ撮る前に切り取れば？
>トリミングした不要な部分を削除を追加する というのがよく分からんが
うっかり�
336:gリミングしたけど元に戻したいとか？ https://itojisan.xyz/settings/25094/ キャプチャの再考も必要かも
337:デフォルトの名無しさん
23/03/19 13:05:56.53 fsx9oQpt.net
スクショするコードと下のコード繋げて貼り付けてるんだけどその後に図のトリミング部分を削除を毎回手動でやってるんだけど
その手間を無くせないかなと思って
Sub 貼り付け()
Range("A6").Select
ActiveSheet.Paste
Application.CommandBars("Format Object").Visible = False
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 126.5453543307
Selection.ShapeRange.ScaleWidth 0.5493110633, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8437515373, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 324
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -63
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 28.3636220472
Selection.ShapeRange.IncrementTop 0.00007874015748
Selection.ShapeRange.ScaleWidth 0.9641379475, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9259154745, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 310
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -37
Selection.Placement = xlFreeFloating
Selection.ShapeRange.LockAspectRatio = msoTrue
Range("A10").Select
ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化
End Sub
338:デフォルトの名無しさん
23/03/19 18:29:45.55 M92RK9ru.net
あなたの言うトリミングとは何なのか
トリミング＝不要な部分の削除ではないのか
というところから、どうぞ
339:デフォルトの名無しさん
23/03/19 19:21:57.35 +3/waKCo.net
>>333
図の圧縮のトリミングをvbaでやりたいけどコードが分からないんだろう
340:デフォルトの名無しさん
23/03/19 21:50:22.00 fsx9oQpt.net
いやだから図のトリミング部分を削除したいと言うてるわけです
341:デフォルトの名無しさん
23/03/19 22:16:16.30 N8t0mUor.net
いやだからわざわざマクロでやる必要ないでしょ？
コード書いてるより手動でやった方が早いのでは？
342:デフォルトの名無しさん
23/03/19 22:33:34.30 fsx9oQpt.net
頻度が多いのよ
図の形式からいちいち削除する手間を無くして
貼ったと同時に不要なトリム部分を削除したい
ネットで見てもなかなか載ってない
343:デフォルトの名無しさん
23/03/19 22:39:45.16 +3/waKCo.net
>>332
いやお前ら、
図の圧縮のトリミングをマクロでやる方法があるならそれを教えてあげなよ
俺はわからなかった。マクロの記録にもない
何パターンか
・図の圧縮をキーマクロにする
個人的には全くオススメしない
URLﾘﾝｸ(yaromai.jp)
・別ソフトを使う
pictcutterとか
ドラッグアンドドロップで処理できる
マクロでどうこうするより早い
・別アプリと連携する
imagemagickがvbaと連携できる
かなりしんどいけど、imagemagickは有名なソフトでかなり色々できる
急がないならかなりお勧め。知っていれば画像に関することはほぼなんでもできるようになる
URLﾘﾝｸ(qiita.com)
344:デフォルトの名無しさん
23/03/19 22:45:35.69 M92RK9ru.net
こんな感じ？
Set shape1 = ActiveSheet.Shapes(1)
shape1.Copy
ActiveSheet.PasteSpecial Format:="図 (PNG)"
Set shape2 = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
shape2.Left = shape1.Left
shape2.Top = shape1.Top
shape1.Delete
345:デフォルトの名無しさん
23/03/20 08:19:41.94 K5H+7bLz.net
>>338
ありがとう、会社PCだからソフトやアプリを簡単に申請して入れられないんだ
>>339
まじすげぇです、
完全に求めていた事が出来た
本当に心から感謝
マジでありがとう
346:デフォルトの名無しさん
23/03/20 08:22:41.79 K5H+7bLz.net
いや、マジ凄い
素人ながら結構ネットで検索してたのに
実現は無理なんかなと諦めてた
本当に本当にありがとう
すげえ
347:デフォルトの名無しさん
23/03/21 01:10:26.57 2GJP0s5v.net
惚れちゃうよね
348:デフォルトの名無しさん
23/03/21 07:03:36.10 bl4/liXV.net
濡れる
349:デフォルトの名無しさん
23/03/21 10:12:48.44 PCjca3J8.net
人間chatgpt認定
350:デフォルトの名無しさん
23/03/21 23:13:02.09 QiPSaXn9.net
ワイはエクセルのイルカ
何でも質問してええよ
351:デフォルトの名無しさん
23/03/21 23:23:48.95 kDcUmgO1.net
お前を消す方法
352:デフォルトの名無しさん
23/03/21 23:34:19.90 PCjca3J8.net
サエコ先生？アシスタントだっけ？
あれもリストラされたよね
353:デフォルトの名無しさん
23/03/24 08:20:34.18 1yrWyKZ9.net
【本当にあった怖いVBA】
Enum SDigit
SList = 2
SOutput
End enum
sub test()
set wsh = Thisworkbook.WorkSheets(SName(SList)))
End sub
↑お、SNameがシート名配列か？
Function SName(FDigit As SDigit)
SName = LSheet.Cells(FDigit, 2).Value
End Function
↑ん？
Function LSheet()
Set LSheet = Thisworkbook.WorkSheets("一覧表")
End Function
↑？？？？？？？？？
354:デフォルトの名無しさん
23/03/24 08:59:41.03 y9S7Bvf0.net
set wsh = Thisworkbook.WorkSheets(FDigit)
でええがな
355:デフォルトの名無しさん
23/03/24 10:27:19.17 mGsBzzaU.net
いや待て
ひょっとすると
Function Lsheetは
実は別クラスに書いてあって
インターフェースを介在して
取ってきているのかもしれないぞ。
そしたら場合によっては
そんな記載になることも
ないとは言い切れない。
356:デフォルトの名無しさん
23/03/24 10:44:43.79 FUl1ABhx.net
いやどれも同じ標準モジュール
一覧表シートに載ってる表(A列がブックのパス、B列がシート名みたいな)の値を取るだけだったから
Set Wbo = WorkBooks.Open( SPath( SOutput) )
Set Wsh = Wbo.WorkSheets( SName( SOutput) )
みたいな記述もある(SpathはLSheetのA列から取ってくる)
コメント0でなんでこんな記述してるのかも定数や配列にしてないのかも分からん
357:デフォルトの名無しさん
23/03/24 11:25:35.61 1rbGFcof.net
変数名にwshは感心しない
斜め読みだと外部スクリプトでも呼んでるのかと勘違いする
358:デフォルトの名無しさん
23/03/24 11:57:47.57 y9S7Bvf0.net
>>352
それはかなり思う。いつも少しひっかかる
359:デフォルトの名無しさん
23/03/24 12:03:58.85 MDleo4Zx.net
古き良きハンガリアン風に
WB_[ブックの役割名]
WS_[シートの役割名]
とかかな。
360:デフォルトの名無しさん
23/03/24 12:10:10.68 anQmlZ/+.net
俺はxla, xlb, xls
361:348
23/03/24 12:14:05.32 FUl1ABhx.net
さすがにシートの変数名は変えてあるわ
定数で済むものをシートからの取得にしたり
シートからの取得方法が関数の多重呼び出しだったり
呼び出し先の関数ではシート名直打ちだったり
関数が配列みたいな名前だったり
呼び出しの引数がユーザー定義型だったりで
可読性最悪なクソコードなんだよ
362:デフォルトの名無しさん
23/03/24 12:19:18.16 anQmlZ/+.net
定数(変数)をまとめたシートはよく作るな
363:348
23/03/24 12:31:11.37 FUl1ABhx.net
>>357
今後マクロを読む引き継ぎ先に向けてのシートだろ？
マクロ内での定数宣言で問題ないのに
わざわざシートから参照する方式で難解にする意味が分からん
百歩譲ってそこを許すとしても
一覧表シートの指定はLSheet関数じゃなくて
SPath、SName内でWorksheets(シート名定数)だろ
364:デフォルトの名無しさん
23/03/24 12:35:33.80 DAz6UNB2.net
変数を日本語（漢字）で宣言してるわ…
いけないのはわかってるけどメンテナンスする時に楽だから…
Dim 列 As Range
Dim 行 As Range
365:デフォルトの名無しさん
23/03/24 12:37:59.55 mGsBzzaU.net
>>359
ちょっと待て
列や行をの型がRange？
どういう状況なんだ？
366:デフォルトの名無しさん
23/03/24 12:41:59.41 FUl1ABhx.net
>>360
表かなんかの取得で列や行の一部しか入れないんでねーの
行 = Range(A1:C1)みたいな
367:デフォルトの名無しさん
23/03/24 13:15:09.00 anQmlZ/+.net
>>358
値の取得は Range("設定!名前")
ファイル名やら出力先シート名とかね
ダイアログの代わりみたいなもんか
368:デフォルトの名無しさん
23/03/24 13:36:50.23 mGsBzzaU.net
なるほど
したっけ変数名は「行取得セル」とかにした方がいいだろな
369:348
23/03/24 14:11:44.49 FUl1ABhx.net
>>362
結局なんでマクロ上に定数で書くんじゃなくシートから持ってきてるんだよ
370:デフォルトの名無しさん
23/03/24 15:27:24.94 NHu64AvA.net
>>363
北海道民か
371:デフォルトの名無しさん
23/03/24 15:59:07.20 anQmlZ/+.net
>>364
設定ダイアログの代わりにワークシートを使っています。
これでいい？
372:デフォルトの名無しさん
23/03/24 16:49:43.95 mGsBzzaU.net
>>366
なら、セルひとつで済むんじゃないの？
対象セルに入力規制掛けてリスト化してしまえば。
373:デフォルトの名無しさん
23/03/24 17:41:36.37 5t6vPIej.net
>>367
そうだね
ほとんどは1つのセルにそれぞれ名前を付けてるね
まあオレがそうしてるだけでゴリ押ししてるわけじゃないからな
無駄だ！と言われればそうですねとしか答えられない
374:デフォルトの名無しさん
23/03/27 19:44:14.62 Lfv4NoBM.net
そうですねと答えられたら「そうですか？」と聞き返すしかない
375:デフォルトの名無しさん
23/03/27 21:10:49.67 vvevgmMM.net
問題は名前（文字列）でシートを識別する方式にある
プロパティのところでクラス名やモジュール名みたいにワークシートのオブジェクト名を自由に編集できる
これはシートに付与した名前とは別物で、シート名がどう変わろうと常にそのシートを示す
with worksheet("hoge")
ではなく、オブジェクト名で
with HogeSheet
のように記述できるようになる
名前がHageに変えられたり毛髪に問題が起きても常にHogeSheetにアクセスできる
376:デフォルトの名無しさん
23/03/27 21:14:34.52 HMtLcTY+.net
あなたの日本語難しいネ！
377:デフォルトの名無しさん
23/03/27 22:12:35.66 DLXELyrv.net
左にあるのから123って指定できたやろ名前関係なく
378:デフォルトの名無しさん
23/04/06 23:56:50.44 hYGJaIME.net
マクロで記録して
再生すると 何だよ
エラーになるのは 図形に多い
379:デフォルトの名無しさん
23/04/07 07:12:32.36 msaEGqkC.net
記録したコード見て直せ
380:デフォルトの名無しさん
23/04/07 10:04:57.40 d1VNe0g3.net
マクロだけのファイルでもデバッグ効くんだっけ？
デバッグはスルーするけど実行時にエラー起こすんなら原因は別か
「何だよ」書かれても状況書かないなら単なる愚痴ボヤキ
381:デフォルトの名無しさん
23/04/08 11:49:01.95 30ktKZ0z.net
VBAで別のブックを開いて（或いは別のブックから）何か操作をしてそのブックを閉じるという操作をする時に
必ずdimやsetでオブジェクトやパスを格納しなければならないという事はないでしょうか？
382:デフォルトの名無しさん
23/04/08 12:47:34.04 tXbSb+Zf.net
ボタンが貼ってあるセルを選択･値をクリップボードへコピーするコードはどう書けばいいでしょうか？
Bingチャットさんの作ってくれたコードはどれもうまく動きませんでした
383:デフォルトの名無しさん
23/04/08 13:09:03.48 4CyiPc7l.net
>>377
bingチャットさんのコードはどんなの？
384:デフォルトの名無しさん
23/04/08 13:12:30.10 d7u9VIcm.net
>>376
無いよ
385:デフォルトの名無しさん
23/04/08 13:29:49.15 Z+egWEAe.net
ボタンが貼ってあるセル ←そんなものは無い
両者は別物だし、セルを覆い隠すようにボタンが貼られてたとして、そのセルに何の値があるというのか
矢印キーで移動してそのセルを選択した時に、数式バーに数式とかが表示されるならその値だし
名前ボックスにセル位置以外のものが表示されたら、その名前を調べればいいし
マクロの記録で、そのセルをコピー だけでコード書かれるけど
Sub Macro1()
Range("A1").Select
Selection.Copy
End Sub こんなもの書いてどうしたいんだか Winキー + V でクリップボードの中身も見れるけどどうしたいんだか
386:デフォルトの名無しさん
23/04/08 14:35:09.85 tXbSb+Zf.net
Sub CopyButtonCell()
ActiveSheet.Buttons(Application.Caller).Select
Selection.Copy
End Sub
>>377 みたいな感じです
>>380 エクセルのシートから他アプリへたくさん値コピーしなければならないような時
Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
構造的にムリならいいです
387:デフォルトの名無しさん
23/04/08 15:57:08.07 cbbXW0a7.net
ちょっとやってみるか
388:デフォルトの名無しさん
23/04/08 16:04:33.64 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:デフォルトの名無しさん
23/04/08 16:05:06.51 TknoW+3y.net
教えて下さい
m1 MacBook Air でvbaやってるんですが
dim wdapp as word.application
set wdapp = new word.application ←
矢印の部分でオートメーションエラーが出るんですが
原因として何が考えられるでしょうか？
wordの参照設定はしてあります
390:デフォルトの名無しさん
23/04/08 16:12:27.46 jBwRbDE6.net
>>384
新規プロジェクトでその2行だけのコードを動かしたらどうなる？
391:デフォルトの名無しさん
23/04/08 16:27:58.20 Z+egWEAe.net
Set wdApp = CreateObject("Word.Application")
or
Set wdApp = GetObject(,"Word.Application")
do not work either.
392:デフォルトの名無しさん
23/04/08 16:33:45.44 TknoW+3y.net
>>385
wordアプリケーションが開いた後
同じくオートメーションエラーが出ました
エラーコードでググったらodbc32ビットと64ビット
がうんちゃらかんちゃらと出てきてit弱者の自分には
よくわかりませんがもう少し調べてみます
エラーコードは-2147467259(80004005)です
393:デフォルトの名無しさん
23/04/08 16:41:33.24 tXbSb+Zf.net
>>383 なぜかcancel行はエラーが出るけど
カーソル移動で次々値がコピーされるようになりました
かなり思ってたのと近い事ができるようになったのでどうもありがとうございます
394:デフォルトの名無しさん
23/04/08 18:02:10.35 LJ0l06mu.net
>>384
「教えて」「助けて」系の例の法則と思ったけど、
これは違うみたいね
インテル系Macでもダメだった
Wordは立ち上がるのだがオートメーションエラーで止まる
395:デフォルトの名無しさん
23/04/08 20:05:01.26 Mr5vl6VY.net
>>384
Windowsだとエラーは出ないんで俺にはわからん
396:デフォルトの名無しさん
23/04/08 2
397:1:34:53.96 ID:ymsLMaB3.net
398:デフォルトの名無しさん
23/04/08 22:32:42.99 UJsM3HNZ.net
>>391
馬鹿はコメントするな
399:デフォルトの名無しさん
23/04/08 22:34:09.73 TknoW+3y.net
みんなありがとう
明日アッポーのサポートが助けてくれるらしい
多分解決すると思う
400:デフォルトの名無しさん
23/04/08 23:36:44.53 ymsLMaB3.net
土日祝関係なくMS製品の尻拭いまでやってくれるなんて優秀だけどなんか泣けるよね
401:デフォルトの名無しさん
23/04/08 23:45:41.57 cbbXW0a7.net
>>394
いやappleのバグの可能性もある
402:デフォルトの名無しさん
23/04/09 04:11:37.57 szvOgdHN.net
>>391
知らないくせに出しゃばる馬鹿
403:デフォルトの名無しさん
23/04/09 11:09:50.22 MwFb9nZt.net
with ステートメントは指定したオブジェクトに対して一連の操作を行うものだから
例えていうとアクティブオブジェクトに対してのみオブジェクト名を省略して行う事ができるという事でしょうか？
404:デフォルトの名無しさん
23/04/09 12:44:51.59 UEJLauxK.net
実際にコード書いてみればわかるような事を質問するやつってこの手の作業に向いてないと思うんだよね
それに書いて動かしてこうなったんですが？（実際にコードつける）なら回答する側も具体的に回答してくれると思うんだが
405:デフォルトの名無しさん
23/04/09 15:23:49.51 tahaBI1g.net
最近VBAもedge任せだわ
たまに違うってのもあるけど楽で仕方ない
このコードの共通する部分を関数にしてとか
イエス・ノーできるポップアップ作ってとか（これはいちいち覚えていないので）
406:デフォルトの名無しさん
23/04/09 18:19:04.23 bSTOMlGp.net
>>397
自分用語に例える意味がわからない
コードを書くときにwithで指定したオブジェクトの記述を省略できる
内部的にはオブジェクトへの参照回数が減るのでスピードアップする
そんだけ
407:デフォルトの名無しさん
23/04/09 22:24:57.39 LBPW4i/X.net
>>399
・コード全部投げてリファクタリングして
・人のコード全部投げてコメントつけて
めちゃくちゃ楽だよな
今までのアホみたいな作業はほぼなくなったわ
408:デフォルトの名無しさん
23/04/09 22:41:51.31 MwFb9nZt.net
>>401
edgeにAIがあってコードを勝手に考えてくれるのですか？
409:デフォルトの名無しさん
23/04/10 03:34:03.61 KQyt0PES.net
Ruby,Python, 今度は Edge もNG追加だな
410:デフォルトの名無しさん
23/04/10 12:35:10.06 KRQrRFXa.net
了解
春になると意味不明な書き込みばかりよね
411:デフォルトの名無しさん
23/04/10 17:13:47.76 1+uqluA+.net
>>403
>>404
情弱+思考停止で草
412:デフォルトの名無しさん
23/04/10 17:30:51.74 D6WHslMZ.net
Edgeさんは短いコード貼るとどういう動作するコードなのか教えてくれるし
やっぱり可能性を感じる
413:デフォルトの名無しさん
23/04/10 18:09:43.78 D790o7Er.net
>>405
すれ違いの書き込みを誘導するのって宣伝か荒らしだろ
糞して寝ろ
414:デフォルトの名無しさん
23/04/10 18:38:40.13 KRQrRFXa.net
春だなぁ
415:デフォルトの名無しさん
23/04/10 19:38:37.33 QC1Dw0Jg.net
>>402
edgeというかbingな。あれは無料でやや精度が悪い
俺は有料でchatGPT4
ほとんど口語でテキトーに指示出しても良い
下手な新入社員の1兆倍使える
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
416:デフォルトの名無しさん
23/04/10 19:49:20.11 sVHEvuTz.net
>>407
キモい
417:デフォルトの名無しさん
23/04/10 20:03:19.84 SNPMiXfp.net
金払ってこんなことさせてんのか？おいたわしい
418:デフォルトの名無しさん
23/04/10 21:56:37.82 sVHEvuTz.net
>>411
VBAしか出来ない保守的なお年寄りの多さが良くわかるな
まぁ頑張って自力で全部書いてくれ
419:デフォルトの名無しさん
23/04/10 22:52:59.23 QC1Dw0Jg.net
>>411
まぁ、頑張って君は一生懸命コードを書いてくれたまえ
そのうち総務のおばはんが「これ間違っちゃったから別のコード書いて（笑）」ってアホみたいな入力でvba自動生成しますんで
420:デフォルトの名無しさん
23/04/10 22:54:57.04 QC1Dw0Jg.net
vbaしか使えない連中はマジでweb系覚えないと詰むぞ
saasだのなんだのシステムどんどん覚えてもいい
お勧めはGASのwebアプリケーション。あれは本当に強い。当分残る
421:デフォルトの名無しさん
23/04/10 23:52:37.09 jPiGDS+V.net
そういうのはそっちのスレでやれば良かろう
スレタイ読めないのかね
422:デフォルトの名無しさん
23/04/10 23:52:42.60 jBIdhypV.net
ChatGPTの日本法人社長は中国人でしたとさ
423:デフォルトの名無しさん
23/04/10 23:56:32.42 jPiGDS+V.net
そもそもVBAスレにVBAしか使えない人がいても問題なくね？
俺は他言語の話は別のスレで書いてるから
424:デフォルトの名無しさん
23/04/11 01:09:55.16 2l6ne52s.net
>>415
スレ違いって 笑
425:デフォルトの名無しさん
23/04/11 01:36:18.11 muoUIQjV.net
違うでしょ？VBAしか使えないんじゃなくて、Excelしか使えないんでしょ？
VBAだけでExcelの全てを動かしてる奴なんて今時はいないはず。
426:デフォルトの名無しさん
23/04/11 02:39:51.89 ncXEHvRC.net
EXCELしか使えない初心者がVBAの質問するのはありだろ
427:デフォルトの名無しさん
23/04/11 07:39:15.30 2FEVzV7Z.net
>>414
そう言われつつもずーっとEXCEL VBAは消えていないんだよなぁ
むしろ手軽に組めてその気になれば事務のおばちゃんでも組めるくらいだから
Web系の知識が要らないこともある意味利点と言える。
もちろん、プログラマーとしてやってくならWeb系の知識があったに越したことはないけど
そうなったらフロントサイドではJava Script、サーバーサイドではC#とか全然別の言語使うから
ここで話していてもきりがなくなるよなぁ。
428:デフォルトの名無しさん
23/04/11 10:12:28.00 nfnGNFO8.net
>>409
DateSerialは存在しない日付を入れてもエラーにならず、
意図しない日付を返す可能性があるのでその辺を考慮しとかないといけないが、
このコードにはそのチェックが入ってないので正常値でのテストしかしてないとそのリスクに気づけない
将来的にはコード自体に改良が入るか、コードの説明時に補足が入ってくるんだろうが、
現状としてはそれなりにコードが読める人以外が使うとトラブりそう
429:デフォルトの名無しさん
23/04/11 13:54:14.11 sRqh1XY0.net
jsみたいに0日で末日になる方が楽でいい
430:デフォルトの名無しさん
23/04/11 20:30:28.66 agA3a9LA.net
VBA消える消える詐欺
10年前も20年前も同じこと聞いた
10年後も20年後も同じこと言ってそう
431:デフォルトの名無しさん
23/04/11 20:44:05.73 J5ZZU3Wh.net
comオバケのExcelをまるごと作り直す気がないとVBAでいいよねとなる
web版は頑張っているけど所詮はブラウザゲー
432:デフォルトの名無しさん
23/04/11 21:06:30.08 CpsQYYlb.net
Excel の Office スクリプト
URLﾘﾝｸ(learn.microsoft.com)
Office スクリプトと VBA マクロの違い
URLﾘﾝｸ(learn.microsoft.com)
433:デフォルトの名無しさん
23/04/11 21:20:40.58 57xdnJXn.net
「A<Bの時、Bを赤文字にする」という条件付き書式設定を列ごとに行うのはVBAでしか出来ませんか？
「A1<B1」の条件をコピーしても行番号が自動更新する方法が見つからず質問しました。
434:デフォルトの名無しさん
23/04/11 21:22:38.94 agA3a9LA.net
>>427
1つずつ手入力すればVBAは不要
435:デフォルトの名無しさん
23/04/11 21:27:12.89 /tI+CLvs.net
最初条件付き書式に仕様がよくわからず戸惑ってたの思い出した
436:デフォルトの名無しさん
23/04/12 01:41:59.54 swBiS/Z/.net
>>424
それを踏まえてExcel無くなる詐欺もちらほら。
437:デフォルトの名無しさん
23/04/12 02:55:21.49 l5OCzbsG.net
無くなる理由でMSからもっといいのでたとか
社内でExcelの使用禁止とかなったら
なくなるかもしれんが……ないだろうね
438:デフォルトの名無しさん
23/04/12 09:43:30.66 2pDPEdUy.net
>427
まず最初に条件付き書式で赤文字にしたい範囲（例えばB1：B200）を選択
[条件付き書式]-[新しいルール] →数式を使用して、、、、を選択し、次の数式を、、の枠内に
=$B1>$A1 その下の[書式]でフォント色を赤
439:デフォルトの名無しさん
23/04/13 07:03:06.49 SI+mS+L3.net
ChatGPT搭載されようとしてんのになくなるわけねえだろｗ
440:デフォルトの名無しさん
23/04/13 08:16:58.94 lWRLvXgs.net
MSじきじきに調教したchatGPTとVbaのコラボ…
すごいイルカが誕生しそうだなw
441:デフォルトの名無しさん
23/04/13 11:00:17.46 wAJ6smfe.net
サエコ先生を忘れないで！
442:デフォルトの名無しさん
23/04/13 14:09:40.36 zKGXfoub.net
>>433
ChatGPTって断定するような言い方で出力するけど
内容はそのままでは使えない出鱈目だよ
有料なら使えるのかも知らんが
443:デフォルトの名無しさん
23/04/13 14:57:39.54 /LM8AN9C.net
このスレよりは役に立つだろ
444:デフォルトの名無しさん
23/04/13 15:07:49.69 21VTCVvM.net
人に聞かないと何もできない頭の弱い人にはそうかもな
445:デフォルトの名無しさん
23/04/13 16:01:23.94 L3OXwniv.net
ChatGPTも判断根拠とか出典を明示してくれれば使い物になるんだけどなぁ。
一次ソースを確認できない情報は信用できない。
446:デフォルトの名無しさん
23/04/13 18:03:35.32 wAJ6smfe.net
まず上級者はchatgpt等のツールは使わない。
だって上級者はさらに良いコードを書けるから。
447:デフォルトの名無しさん
23/04/13 22:42:27.72 TV2fObMx.net
エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルA1に入る文字を変えたいです
URLﾘﾝｸ(jsfiddle.net)
あと、できればVBA使わずに実現したいんですけど方法はありますか？
448:デフォルトの名無しさん
23/04/13 22:45:59.87 QfuawtwP.net
>>440
使う。
使った方が確実に早い
使用頻度に低いコードもノータイムで書いてくれる
449:デフォルトの名無しさん
23/04/13 22:47:20.02 QfuawtwP.net
>>441
Excelのチェックボックスにチェックを入れたら、特定のセルに文字を入力する方法は、次の手順に従って実現できます。
チェックボックスを挿入する："開発"タブ -> "コントロール"グループ -> "挿入" -> "チェックボックス"を選択して、ワークシート上にチェックボックスを挿入します。
チェックボックスにリンクするセルを設定する：チェックボックスを右クリックし、「コントロールの書式設定」を選択します。ダイアログボックスで「コントロール」タブを選択し、「リンク先セル」の欄に、チェックボックスに対応するセルのアドレスを入力します。
IF関数を使って、チェックボックスがチェックされた場合にセルに文字を入力する式を作成する：例えば、チェックボックスがA1にリンクされている場合、次のような式をセルに入力します。
graphql
Copy code
=IF(A1=TRUE, "チェックされました", "")
上記の式では、A1がTRUE(チェックが入っている)の場合、「チェックされました」という文字列をセルに入力します。A1がFALSE(チェックが外れている)の場合は、空白をセルに入力します。
4. チェックボックスにチェックを入れたり外したりして、セルに文字が入力されることを確認する。
以上の手順で、VBAを使わずにチェックボックスにチェックを入れたら、特定のセルに文字を入力することができます。
450:デフォルトの名無しさん
23/04/13 23:21:52.07 n+vWlf1Z.net
ChatGPTの内部構造をよく知らんで振り回されてるやつが多いけど、質問文を文節に分解して、それぞれでぐぐってコピペしてまとめるっていう単純作業を自動化してるだけだぞ
論文をちゃんと読めば書いてあるし、開発サイドでは誰も人口知能だなんて言ってない
だから検索しても出てこない情報は含まれないし、スコアに従って切り貼りしてるだけだから文章でもコードでも前半と後半がちぐはぐな回答が出てくることがある
それをわかった上で利用すれば、退屈な作業を確実に効率化できるんだけどね
451:デフォルトの名無しさん
23/04/13 23:26:38.72 QfuawtwP.net
>>444
＞検索しても出てこない情報は含まれない
人名は割と容赦なく嘘が出てくるぞ
本名で聞いてみたら1970年生まれのプロレスラー＋転職してアニメーターになったわ
もちろんそんな人物は実在しない
452:デフォルトの名無しさん
23/04/13 23:45:01.79 wAJ6smfe.net
確かにchatgptは早いけど、VBA上級者のような丁寧かつ分かりやすく書けるスキルには及ばないでしょ。
453:デフォルトの名無しさん
23/04/13 23:50:31.64 n+vWlf1Z.net
>>445
Googleでもネット上に存在しないはずの人名とか単語で検索すると無関係な情報を適当に出してくる
そういう関連性の低い検索結果でもChatGPTは容赦なくコピペする仕組みになってる
454:デフォルトの名無しさん
23/04/14 00:03:39.58 QTRY6Uuz.net
>>446
書けるよ
コメント大量に入れてって言えば入れてくれるし
可能な限りまとめてもらったり、冗長でもいいから分かりやすく書いてって言ったらその通り出力してくれる
あとは知らなかった関数なんかも書いてくれる事がある
上級者でも答え合わせ的な意味で使った方がいい
絶対に腕があがる
455:デフォルトの名無しさん
23/04/14 00:59:19.74 uflM/2Qr.net
進化が恐ろしく速くなるからとにかく否定から入る硬直した頭ではダメな気がする
漠然とw
456:デフォルトの名無しさん
23/04/14 03:40:01.68 xXo/sM7i.net
否定から入るのは大抵はジジババ老害でしょ？
457:デフォルトの名無しさん
23/04/14 06:17:31.63 pBZyWRLh.net
5chはジジババ老害の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
458:デフォルトの名無しさん
23/04/14 12:05:37.18 F0gZl9Ij.net
>>450
それ、否定から入ってるよ
459:デフォルトの名無しさん
23/04/14 12:35:16.38 QTRY6Uuz.net
>>452
どうみても疑問文だぞ
460:デフォルトの名無しさん
23/04/14 13:04:36.38 twidN+O+.net
VBAはジジババ老害しか使わないからね
461:デフォルトの名無しさん
23/04/14 15:11:32.43 kavQ5jg0.net
このスレはジジババ専用
462:デフォルトの名無しさん
23/04/14 16:06:06.70 TUWR9ux2.net
若いのはVBAやらなくなったのか？
463:デフォルトの名無しさん
23/04/14 17:09:14.68 tB4oYOkI.net
他人にやらせるのがコミュ力と思い込んだからそれ以外もやらないだろ。
464:デフォルトの名無しさん
23/04/14 18:09:42.10 24L0DHOb.net
>>443
こんな簡単な質問で重大な間違いをしてるのに気付けるのは人だけか？ 間違いを指摘するAIが必要じゃないのか？
A1にはその数式を入れるのだから、チェックボックスのリンク先はA1以外にしな�
465:ｫゃダメだろ
466:デフォルトの名無しさん
23/04/14 18:16:29.82 QnJDp/jA.net
>>458
多分理解できてないのは貴方だけ
467:デフォルトの名無しさん
23/04/14 18:36:06.83 EAAL0jRn.net
>>456
若さって何だ？
468:デフォルトの名無しさん
23/04/14 18:38:36.70 p9KAKZAT.net
振り向かないことさ
469:デフォルトの名無しさん
23/04/14 18:40:04.49 fSBlKdvX.net
振り向かないことさ
470:デフォルトの名無しさん
23/04/14 18:40:49.67 NmpywnE7.net
愛って何だ？
471:デフォルトの名無しさん
23/04/14 18:53:17.20 EAAL0jRn.net
MaわレMEら輪な居 こ と (ﾟДﾟ)ｻｧ?
472:デフォルトの名無しさん
23/04/14 19:26:22.99 xXo/sM7i.net
つまり年齢などただの数字だと
473:デフォルトの名無しさん
23/04/14 19:34:04.53 uflM/2Qr.net
悲しいけど歳を重ねるほど才能にあふれた者と差は開いていく
474:デフォルトの名無しさん
23/04/14 19:36:27.91 hrRp4yZc.net
VBA哲学スレ
475:デフォルトの名無しさん
23/04/14 20:01:52.35 24L0DHOb.net
>>459
質問者が「セルA1に入る文字を変えたい」と訊ねてる回答としては致命的と云ってる
こんなシンプルな質問だからすぐに間違いに気付けると思うが、より複雑な質問なら
当該セルやテーブルや名前付け範囲やらの対象を雑に扱ってたら、質問者が混乱に陥る
得意げに貼り付ける奴が間違いに気付くでも無くキチンと修正するでも無くたれ流しなのも呆れるしかない
476:441
23/04/14 20:28:34.40 AnsRrKWs.net
>>468
他に方法あるんですか？
477:デフォルトの名無しさん
23/04/14 20:31:21.28 AnsRrKWs.net
ていうか、AIの話になるんだったらA1以外のセルにしておいたらよかったですね
478:デフォルトの名無しさん
23/04/14 20:31:31.59 iFnuwHtn.net
>>468
最後の一文は全く同意だ
ChatGPTでの質問は質問者本人でもできる
それを代わりにやって得意げに間違えたままの回答を貼る
AI未満のことしかできないんだもんな
479:デフォルトの名無しさん
23/04/14 20:37:10.45 inrZFRKj.net
A1の値(文字)がチェックボックスの状態によってTRUEとFALSEに変わる
A1の値をIF関数で判定するだけの処理なのでVBAを使うような内容ではないな
480:デフォルトの名無しさん
23/04/14 20:38:10.01 iFnuwHtn.net
だけどここはVBAスレ
481:デフォルトの名無しさん
23/04/14 20:45:24.57 xXo/sM7i.net
Excelはスレ違い
482:デフォルトの名無しさん
23/04/14 21:04:16.77 4gfSRBP0.net
フォームコントロール(チェックボックス)とExcel関数(IF関数)
URLﾘﾝｸ(i.imgur.com)
483:デフォルトの名無しさん
23/04/15 15:18:17.56 tgYtFQD8.net
ChatGPT使ったらどんなサイトよりもわかりやすいプログラムを一瞬で作ってくれる
484:デフォルトの名無しさん
23/04/15 16:02:24.33 IxkSV09/.net
宣伝を鵜呑みにする情弱老害
485:デフォルトの名無しさん
23/04/15 16:19:50.18 fLn1wdWw.net
ChatGPTは単純で短いコードしか書けない
ちょっと長くなると動かないどころかコンパイルすらできなくなる
486:デフォルトの名無しさん
23/04/15 16:52:23.65 u6+oq5Jv.net
>>476
スレ主の例の零細企業の馬鹿か
487:441
23/04/15 17:31:15.11 m9DY7U8S.net
おわります、ありがとうございました
488:デフォルトの名無しさん
23/04/15 17:40:05.15 2ypVYtLL.net
そもそもchatGPTはプログラム向けじゃないぞ
codex系譜のcopilotが最強
あれは関数名書くだけで内部処理全部書いてくれる
489:デフォルトの名無しさん
23/04/15 18:00:19.46 rh4rSeDw.net
楽しみだな。ベテランにはベテランなりの使い方するんだろうな
490:デフォルトの名無しさん
23/04/15 22:19:52.03 HUDQsUTT.net
GetOpenFilenameで複数画像のファイル選択は出来る？
491:デフォルトの名無しさん
23/04/15 22:25:42.06 5FTRawM9.net
戻り値をどう判断する気だよ？
492:デフォルトの名無しさん
23/04/15 22:37:28.81 fLn1wdWw.net
>>483
MultiSelect := True
493:デフォルトの名無しさん
23/04/15 22:59:06.56 HUDQsUTT.net
挿入で複数画像を選択したいんだけど、やり方が分かりませんでした。
ChatGPTに聞いたらwindows APIがうんたらかんたら書いてたけど上手くいかずです。
494:デフォルトの名無しさん
23/04/16 01:11:59.77 TnZPL1QR.net
chatgptだってそこまであてにならない良い事例だね
495:デフォルトの名無しさん
23/04/16 01:48:57.39 56X3CGoL.net
無視かよ。
と言うか逆にWin32Apiでどうするのか知りたいわ。
496:デフォルトの名無しさん
23/04/16 02:56:05.12 H/UsxmKh.net
誰？
どの書き込みへのレス？
497:デフォルトの名無しさん
23/04/16 02:58:21.10 TnZPL1QR.net
今は春だから(意味深)
498:デフォルトの名無しさん
23/04/16 08:20:50.36 brYdjlxp.net
(意味深)必要？
499:デフォルトの名無しさん
23/04/16 08:25:35.61 inLFQCcW.net
41歳の春だから
今春が来て君はきれいになった
500:デフォルトの名無しさん
23/04/16 11:42:14.77 RN5sCmuh.net
ChatGPT って言うけどさ、
あれ危なくて4超える開発止めてるらしいね
頼りすぎるとターミネーターの世界になるってね
501:デフォルトの名無しさん
23/04/16 12:09:21.93 htn3Qs9c.net
>>493
スレチ
502:デフォルトの名無しさん
23/04/16 12:34:51.14 SPigkToS.net
翻訳サイトから情報を取得しているという話すら忘れたころに話題になる不自然さ。
503:デフォルトの名無しさん
23/04/16 12:36:21.29 SPigkToS.net
>>490
「意味深」は死語になったよな。
書き言葉でも話し言葉でも使われなくなった。
504:デフォルトの名無しさん
23/04/16 17:59:22.28 TnZPL1QR.net
新人類世代だから普通に使ってるの！
505:デフォルトの名無しさん
23/04/16 19:59:39.21 BCvkd2MR.net
新人類世代は、1950年代後半から1960年代前半や
1950年代後半から1965年（昭和40年）4月1日までに生まれた世代を指す場合が多かった
現在新人類を明確に定義しているものとしてマーケティング上の世代区分があり、
1961年（昭和36年）4月2日から1971年（昭和46年）4月1日生まれまでと定義されることが多い
506:デフォルトの名無しさん
23/04/18 00:15:19.00 15/z+k6u.net
ChatGPTが使えないと言ってるやつって柔軟性なさそう
507:デフォルトの名無しさん
23/04/18 00:17:46.72 bd4+2tTP.net
スレを立てた零細企業の何が本当で何が間違いかわからないような馬鹿には使えるように見えるのだろう
508:デフォルトの名無しさん
23/04/18 00:32:39.66 15/z+k6u.net
>>458の指摘は正しいが
そこで全否定して終わるか使えるところを探せるかが使えるやつと使えないやつの差だと思う
509:デフォルトの名無しさん
23/04/18 01:43:26.21 xbBLs+9o.net
152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8
零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります
510:デフォルトの名無しさん
23/04/18 02:54:05.91 mlAg/XBe.net
そうかい
511:デフォルトの名無しさん
23/04/18 05:12:03.57 mwse8UXC.net
クエリー更新するVBAくらいは覚えておけ。
512:デフォルトの名無しさん
23/04/18 09:38:09.65 4Z8D1pgW.net
今のChatGPTは高機能な検索エンジンでしかない
一般的に検索エンジンなんて使える場面は限られてる
道具の限界をわかった上で使いこなせるのが優秀な人材
513:デフォルトの名無しさん
23/04/18 10:02:17.97 7018PZz0.net BE:439992976-PLT(15000)
sssp://img.5ch.net/ico/u_sii_naname.gif
>>505
出典（ソース）が不明な時点で検索エンジンとしては足りない
514:デフォルトの名無しさん
23/04/18 10:52:08.36 XmTn7Wiy.net
ま、いちばんシンプルなGoogleの検索エンジンだって、ブラウザでAdBlockとかしとかなきゃ
余計な検索結果へいきで出して来るし、Yahoo Bing 百度 DuckDuckGo とか、無理やりブラウザに追加してくるし
道具をまんま使ってるだけじゃ逆に迷惑な場合もあるという好例
いい道具は使う側にもそれなりにスキルを要求してくる てだけ
515:デフォルトの名無しさん
23/04/18 12:06:24.83 QWa6IKeE.net
スレタイ読むスキルもないけどスキルについて熱く語ってて格好いいな
516:デフォルトの名無しさん
23/04/18 12:32:43.57 rXetGO++.net
ChatGPTで実用的なコードを生成させるための的確な指示を出せるスキルが必要になるわけで初心者では曖昧な指示しか出せず動いたとしても何らかの修正が必要、、、ということはそれなりのコードを理解していないとならんてことやんな。
AIだろうと人間だろうと他人が書いたコードの問題点を見つけるなんてめんどい。
517:デフォルトの名無しさん
23/04/18 20:49:05.02 /P7vNRYn.net
正直ChatGTPでコード生成してくれるくらいなら
個人的もっとインテリセンスを強化してくれる方がありがたい。
以前どこかで何の言語かは知らないけど、メソッドの呼び出し口書いたらそれに合わせてシグネチャの部分を生成してくれるのを見たことがある。
現在実用化されているかは分からないけど。
518:デフォルトの名無しさん
23/04/19 02:06:53.36 fItpJ+/N.net
やっと閲覧&書き込めるようになったな。鯖の不具合だとか？
519:デフォルトの名無しさん
23/04/19 06:40:26.15 tLf4Utzx.net
>>506
Googleの検索結果だってリンク先の内容に確かなソースがあるとは限らんのだが
520:デフォルトの名無しさん
23/04/19 06:58:09.69 eW3W51FI.net
宗教の信者って頭おかしい人多いからな
521:デフォルトの名無しさん
23/04/19 07:18:28.31 fItpJ+/N.net
神なんているわけねーしな。
522:デフォルトの名無しさん
23/04/19 07:31:29.73 tLf4Utzx.net
神は死んだ
523:デフォルトの名無しさん
23/04/19 07:37:42.18 MDD24Rb2.net
>>514
神なんているわけないってのも宗教だしな
524:デフォルトの名無しさん
23/04/19 11:55:14.89 DkdDRKhj.net
GetOpenFilenameメソッドで複数の画像を選択して、それを配列に格納して、エクセルに順番に貼り付ける、というプログラムを組みました。
さらに、配列の一番最初？の画像のファイル名をセルに入力したいのですが、配列に格納されたファイルのファイル名を取得するにはどうすればよいのでしょうか
525:デフォルトの名無しさん
23/04/19 12:01:38.38 DkdDRKhj.net
できました
526:デフォルトの名無しさん
23/04/19 12:17:31.19 DkdDRKhj.net
すみませんできませんでした。
Dir（配列（インデックス番号？））で、0.185.jpgのようなファイル名は入れれたのですが、拡張子が消せません。
ドットはファイル名に使われていることがあり、拡張子もjpgのみではないです。
どうすればよいでしょうか？
527:デフォルトの名無しさん
23/04/19 12:35:42.23 ujtPAN82.net
>>519
FSOならファイル名と拡張子を個別に取得できる気がする。。。
何らかの理由でFSOを使いたくないのなら取得した文字列の一番うしろのピリオドの位置を特定すればいいのでは?
528:デフォルトの名無しさん
23/04/19 15:04:15.13 eW3W51FI.net
>>519
DIRの使い方間違ってないか
529:デフォルトの名無しさん
23/04/19 15:26:21.53 fItpJ+/N.net
若い人間はディル関数と呼んでいた。
530:デフォルトの名無しさん
23/04/19 15:58:53.29 61/xve5D.net
Dir 実行した後で拡張子を削除したリストにする
URLﾘﾝｸ(correct-log.com)
拡張子構わず削ってしまうので画像でないファイルが混じってたりすると混乱の元
そもそもファイル名に[.]を使うのが憚られるものだけど、品番・型番とかなんだろうと推測する
私的な用途じゃ無いんだから業務用途なら[.]を[_]にでも変換しといた方が後々のトラブルを避けられるような
社内でルール作りも大事（長年にわたりそうやってきてしまったので今更、、、というのも理解できるが）
531:デフォルトの名無しさん
23/04/19 16:06:06.94 tLf4Utzx.net
俺はバージョンをそのまま書いてる
app_v3.1.4.exe みたいに
532:デフォルトの名無しさん
23/04/19 16:32:02.42 DkdDRKhj.net
>>520
ありがとうございます 調べてみます
>>523
小数点なので出てくるのは避けられません。
533:デフォルトの名無しさん
23/04/19 22:17:44.89 e74q5jo4.net
ChatGPTはVBAでStringBuilderを使ってくるからね。
ネット検索したら、VBAでStringBuilderクラスを自作してる奴がいて
本当にやめてほしかった。
534:デフォルトの名無しさん
23/04/19 23:56:00.40 +74tEZE+.net
webスクレイピングの質問してもいいですか・・・？
IEnavigate・・・じゃなくて、WinHTTPやXMLHTTPでスクレイピングしてると
ヤフーの記事検索で、古いバージョンの・・・ってなり検索を弾かれるんですが
回避方法とかあります？
535:デフォルトの名無しさん
23/04/20 00:06:28.67 cEOJdXQ0.net
>>527
setRequestHeader
536:デフォルトの名無しさん
23/04/20 00:08:38.22 cEOJdXQ0.net
>>526
そういう場合はChatGPTに「StringBuilderを使わないで」って命令すればいいだけ
537:デフォルトの名無しさん
23/04/20 14:09:12.06 pxhF17QW.net
>>526
え？VBAでStringBuilder使えるの？
538:デフォルトの名無しさん
23/04/20 21:29:46.47 cygAdiXR.net
>>528
ありがとうございます。うまく出来ました。
恥を忍んで、もう一つ聞いてみますが
XMLHTTPとかの方法でjavaの中身をスクレイピングすることって出来ますか？
539:デフォルトの名無しさん
23/04/20 21:43:09.53 cEOJdXQ0.net
>>531
まれにできるケースもあるけどほぼ無理
browserコントロールかwebdriverを使った方が簡単で確実
540:デフォルトの名無しさん
23/04/20 21:47:47.31 a3MRyG11.net
聞く方も答える方も馬鹿の例
541:デフォルトの名無しさん
23/04/21 13:00:47.00 I9S2hh+O.net
>>533
じゃあこのスレから出ていけば良い
542:デフォルトの名無しさん
23/04/22 09:42:19.84 xZH2QK6p.net
シート全体から検索ではなく、
ブック全体から検索しそのセルまで移動するコードってどこかのサイトにないですかね？
検索までは出来るけど移動がうまく機能しないし、ChatGPTに何度やらせてもうまくいかず
543:デフォルトの名無しさん
23/04/22 16:15:15.73 p+tyVybI.net
>>535
そのうまくいかなったコードを貼ってくれれば色々アドバイスできるかと
544:デフォルトの名無しさん
23/04/22 17:36:15.09 0M3hZjbD.net
>>535
シート内検索が出来ているのならfor each で全シートにその処理を適用させればいいのでは?
ピンポイントに目的を達成できるようなコードは都合よく転がってないかと。
ChatGPTには処理ごとの指示でコード生成させて自分で組み合わせれば出来んじゃね? 知らんけど
545:ChatGPT
23/04/22 21:04:52.32 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
23/04/22 22:12:10.97 xZH2QK6p.net
返信遅れてすみませんでした。何故か書き込めず。
for eachで回すようにして作ってみます。ありがとうございました。
>>538
found.Select 似たようなコードが出来たんですが、selectメソッドで失敗になるのですよね。
547:デフォルトの名無しさん
23/04/22 23:52:52.89 EIwvRS0u.net
だから使えんと
548:デフォルトの名無しさん
23/04/23 01:54:53.75 4djiLfGu.net
ChatGPTがダメなら
マクロ先生がいるじゃない
549:デフォルトの名無しさん
23/04/23 04:50:32.07 FpfGPbf0.net
知恵袋先生がいるじゃんか
vbキチがいる。
550:デフォルトの名無しさん
23/04/23 05:04:42.20 Jetoe3O6.net
>>538のChatGPTの回答は、検索範囲をSheets(1)と指定してるから1枚目のシートしか検索しない(ActiveSheetではない点に注意)
そもそも、Excelを手動で操作する時は「ブック」を指定して一発検索ができるのに、この機能がなぜかVBAからは使えない仕様になっている
だからループで全シート回すよう書き換えるしかない
551:デフォルトの名無しさん
23/04/23 05:20:45.59 Jetoe3O6.net
それをふまえてChatGPTに再質問すれば、ちゃんとループするコードに直してくれる
結局は便利な道具(AI)があっても、使い方が悪いと思ったとおりの結果を出してくれないってこと
URLﾘﾝｸ(i.imgur.com)
552:デフォルトの名無しさん
23/04/23 07:03:22.97 NdK96c6n.net
自力でできる奴はAIで調べる必要がない
553:デフォルトの名無しさん
23/04/23 09:10:23.27 vhYO2P62.net
マクロを記録しながら手動実行して、記録されたマクロを参考にすれば上手くいくことがあるよ
554:デフォルトの名無しさん
23/04/23 09:54:34.79 4djiLfGu.net
鳥取県がChatGPT禁止 平井知事「民主主義の自殺」 [ぐれ★]
ｽﾚﾘﾝｸ(newsplus板)
555:デフォルトの名無しさん
23/04/23 17:24:04.25 uraPIYbl.net
儲かる株を教えてくれるAIは無いんかね
556:デフォルトの名無しさん
23/04/23 17:26:28.29 vhYO2P62.net
あるよ
557:デフォルトの名無しさん
23/04/23 18:09:32.94 0jCY5BzY.net
今のAIはネットから情報を集めてくるだけで未来を予測する機能はない
予測サイトからデータを拾ってくることならできるけど、それはAIの予測とは言えない
558:デフォルトの名無しさん
23/04/23 21:46:07.09 OJTKX0Sp.net
AIをなんだと思ってるの
559:デフォルトの名無しさん
23/04/23 22:49:42.49 FpfGPbf0.net
横着するためのツールだと思ってる
560:デフォルトの名無しさん
23/04/23 23:19:15.43 LSSzz9o8.net
チャットGTPの種明かしだって結局は「データベース」にある事を答えているだけ
だからデータベースにない事は途端に破綻して頓珍漢な回答をする、これが「自信満々に間違える」という事
もっというとシュミレーションするスーパーコンピューターはあるそのシュミレーション結果が正しいわけではないので人間が判断して正しくない計算結果は全て切り捨てて正しい答えだけ残しているらしいです
561:デフォルトの名無しさん
23/04/23 23:54:35.39 73FkKQIb.net
犯罪にAIを使い始めたら厄介だな
562:デフォルトの名無しさん
23/04/23 23:55:25.14 LSSzz9o8.net
>>554
データベース化笑できるんじゃない？
563:デフォルトの名無しさん
23/04/24 00:43:15.46 ay19AT0z.net
>>553
シュミレーションて……
DBだろうがなんだろうが使うやつがその特性を把握してハンドリング出来るかどうかって話なんだわ。
PCだってアホから見たらただの箱だろ
564:デフォルトの名無しさん
23/04/24 00:54:10.45 ay19AT0z.net
辞書が検索エンジンに切り替わって手間が省けるようになった流れの新たなブレイクスルーだろうな
知りたいことを探すときに単語に置き換えて色々なページから探していた無駄を省いてくれる
565:デフォルトの名無しさん
23/04/24 01:28:52.70 CUqhGEZn.net
>>556
違います
科学のシュミレーションを行うシュミレーションシステムはありますがシステムは正しい答えを必ずしも出すというわけではないので人間が計算結果を見て正しくない計算結果を削除し、正しいと判断したものだけを残すという形で精度や性能を向上させているそうです
これはチャットGTPにそっくりそのまま当て嵌まるし、なんらチャットGTPは革新的でもないという証拠です
そもそも知能や知性があるならなぜ出鱈目な答えを自信満々に出して間違えるのでしょうか？
566:デフォルトの名無しさん
23/04/24 02:06:49.66 BWKTcRvI.net
馬鹿が使う用語
↓
シミュレーション
567:デフォルトの名無しさん
23/04/24 02:07:59.37 BWKTcRvI.net
あ、俺が馬鹿か
漢字変換が勝手に修正する…
シュミレーションと書くのは馬鹿
568:デフォルトの名無しさん
23/04/24 02:11:33.72 7Q5zeCBn.net
>>558
馬鹿は間違っていることに気づかないからだろ
569:デフォルトの名無しさん
23/04/24 02:11:47.58 CUqhGEZn.net
例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？
570:デフォルトの名無しさん
23/04/24 02:12:28.98 dU5ByQ7u.net
>>562
馬鹿は黙れ
571:デフォルトの名無しさん
23/04/24 02:34:30.02 FQlyTijh.net
海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w
572:デフォルトの名無しさん
23/04/24 03:07:44.21 CUqhGEZn.net
>>563
じゃあなんでチャットGTPは自信満々にまちがえるのです？
573:デフォルトの名無しさん
23/04/24 04:15:23.35 MMCAzh7R.net
馬鹿をだまして金とる戦略
574:デフォルトの名無しさん
23/04/24 04:22:29.70 ay19AT0z.net
>>558
おいおい、結局何と何が違うんだ？
話見えてるか？
575:デフォルトの名無しさん
23/04/24 06:04:55.41 bY+5L6EV.net
「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル
半角だと環境によってはわかりにくくなるからあえて全角で書いた
576:デフォルトの名無しさん
23/04/24 07:31:46.75 pba/8KUE.net
ここはChatGPTの話題が出るだけで簡単に荒れるな
577:デフォルトの名無しさん
23/04/24 07:40:26.28 nNpEvIsc.net
ここだけじゃないよ
578:デフォルトの名無しさん
23/04/24 07:41:51.55 pba/8KUE.net
スルーするだけで済む話なのにスレタイ読めないのか、
はたまた自作自演で荒らしてるのか
579:デフォルトの名無しさん
23/04/24 07:53:53.38 ltCEeSXK.net
スルーしろと言うやつほど一番スルーできてない
580:デフォルトの名無しさん
23/04/24 07:56:06.50 5kcFhqjo.net
昔は良スレだったのにな。
ひとつの話題で荒れすぎ
581:デフォルトの名無しさん
23/04/24 08:01:16.77 pba/8KUE.net
>>572
一番の意味くらい知っておいたほうが幸せになれるよ
582:デフォルトの名無しさん
23/04/24 08:11:57.10 4N3isGNg.net
別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える
583:デフォルトの名無しさん
23/04/24 08:37:49.72 Z0B9bFh/.net
こっちのスレ要らなくね？
584:デフォルトの名無しさん
23/04/24 09:00:06.24 clOk4EBF.net
必要ないと思ったなら見なきゃいいだけ
585:デフォルトの名無しさん
23/04/24 09:46:37.76 5kcFhqjo.net
もう全部スルーしてrom専で
586:デフォルトの名無しさん
23/04/24 12:51:06.36 ay19AT0z.net
スレ違いとかいうやつは見なければいいだけだろ。
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？
587:デフォルトの名無しさん
23/04/24 15:11:25.30 Spd75cS3.net
そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ