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
そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ
588:デフォルトの名無しさん
23/04/24 21:31:31.58 5kcFhqjo.net
ウンコ言うな
589:デフォルトの名無しさん
23/04/24 21:41:33.70 LZZeUipz.net
嫌なら見るな
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ
590:デフォルトの名無しさん
23/04/25 15:23:16.15 jvAnjjKM.net
言い方キツイがど正論だな。
嫌なら開かなければ良いな。
591:デフォルトの名無しさん
23/04/25 16:01:52.20 PhYPsJWz.net
逆だな、読んだから嫌な書き込みだと判断したんだろ
592:デフォルトの名無しさん
23/04/25 16:32:47.24 OOi8qz2x.net
ズレてるぞ おっさん 逆だな、とかどの立場で物申してるか片腹痛いわ
593:デフォルトの名無しさん
23/04/25 16:45:08.15 /PKfXSpu.net
仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか
594:デフォルトの名無しさん
23/04/25 18:48:14.50 PhYPsJWz.net
垂れ流されているのが本当にウンコかどうかは見なければわからんだろ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ
595:デフォルトの名無しさん
23/04/25 19:06:12.65 jvAnjjKM.net
ウンコばかり言ってるとクソスレになっちまう！
596:デフォルトの名無しさん
23/04/25 20:00:09.95 mmdaU32E.net
5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない
597:デフォルトの名無しさん
23/04/25 20:03:38.76 mmdaU32E.net
>>579
番組の枠が野球の延長で延々と潰されてる状態と同じだよ
本来の番組を期待してる人にとっては単なるノイズでしかない
598:デフォルトの名無しさん
23/04/25 23:00:49.89 jvAnjjKM.net
まだ喧嘩してる
599:デフォルトの名無しさん
23/04/25 23:02:46.35 OzfCSZRC.net
>>441これ
何度も色んなスレに質問があって変なのって思ってたけど今、Lineの事務職VBAスレ？で今同じ質問してる人がいてびっくりしたw
親切な人が動画紹介してた。
600:デフォルトの名無しさん
23/04/26 00:36:38.80 zxzdUrHn.net
>>590
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ
601:デフォルトの名無しさん
23/04/26 08:58:25.55 1pxgk3Hs.net
ここしばらくの脱線は多少ですまなくね？
602:デフォルトの名無しさん
23/04/26 10:16:58.77 L1Mj70sJ.net
俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか
603:デフォルトの名無しさん
23/04/26 10:32:27.26 w70Lrl+B.net
多少で済むくね？
604:デフォルトの名無しさん
23/04/26 11:34:39.03 FZ0Navbz.net
行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？
コピーしても絶対参照になって反映されず。
列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。
605:デフォルトの名無しさん
23/04/26 11:50:15.79 MQck+7xp.net
>>597
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける
606:デフォルトの名無しさん
23/04/26 14:39:17.86 FZ0Navbz.net
>>598
それは分かるんですが上手くいかず。説明下手ですみません。
結局1行ずつ条件付き書式設定を行うようにコード書きました。
607:デフォルトの名無しさん
23/04/26 18:26:19.83 QhJ3494d.net
chatgptのvba専用スレ立てれば良くね？
608:デフォルトの名無しさん
23/04/27 05:48:02.31 +yZZBsrI.net
ChatGPT ってそんなに凄いんか
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能
609:デフォルトの名無しさん
23/04/27 06:49:22.19 76bSpVKu.net
頭悪そう
610:デフォルトの名無しさん
23/04/27 13:34:04.47 dzjZcYac.net
>>601
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。
ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。
マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。
611:デフォルトの名無しさん
23/04/27 13:35:04.43 dzjZcYac.net
敵キャラクターを作成する
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。
ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。
ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。
以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。
612:デフォルトの名無しさん
23/04/27 14:08:46.28 XSILjXL+.net
この部分のサンプルコードを教えて言うと一応コード書き始めるからな
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん
613:デフォルトの名無しさん
23/04/27 14:11:45.77 zVEPCm55.net
単純にマクロでゲーム作れる奴すげーし
614:デフォルトの名無しさん
23/04/27 15:59:16.33 tbrdsB1h.net
作れるわけねーわな、あと著作権もあるし
615:デフォルトの名無しさん
23/04/27 16:50:28.16 XSILjXL+.net
AIに人権はないから著作権も存在しない
マリオといっても花札屋のとは限らんしな
616:デフォルトの名無しさん
23/04/27 17:13:01.50 Ocl0clWf.net
作る人が多くなるとマリオのようなゲームのコードのテンプレのようなものがデータセットの中にできてきて
即答するようになるw
617:デフォルトの名無しさん
23/04/27 18:09:30.67 DM4R6GlX.net
>>608
著作権無視は違法ですが
618:デフォルトの名無しさん
23/04/27 18:22:26.88 lojChHXv.net
>>610
AIという道具を使った奴が違法な
619:デフォルトの名無しさん
23/04/28 12:20:31.67 BvI4vGh+.net
罫線を引くコードはマクロの記録をしたものを加工するのが最善？
620:デフォルトの名無しさん
23/04/28 12:28:24.02 vB455QFk.net
いいえ
621:デフォルトの名無しさん
23/04/28 12:42:10.09 FbKok5Di.net
マクロ記録をそのまま使うなんて90年代のやり方
622:デフォルトの名無しさん
23/04/28 12:49:48.27 vB455QFk.net
そのままとはどこにも書いてない
623:デフォルトの名無しさん
23/04/28 13:08:25.63 E6P3bOF0.net
お前は他人の否定ばかりだな？
624:デフォルトの名無しさん
23/04/28 13:16:17.73 /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:デフォルトの名無しさん
23/04/28 13:18:29.67 /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:デフォルトの名無しさん
23/04/28 13:29:30.38 /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:デフォルトの名無しさん
23/04/28 13:31:15.83 /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:デフォルトの名無しさん
23/04/28 13:32:22.25 /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:デフォルトの名無しさん
23/04/28 13:33:33.67 /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:デフォルトの名無しさん
23/04/28 13:39:54.72 /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:デフォルトの名無しさん
23/04/28 17:18:16.62 /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:デフォルトの名無しさん
23/04/28 17:20:52.50 /vDIlpFT.net
「mDel」ぢゃ無かった「BDel」で
634:デフォルトの名無しさん
23/04/28 20:20:31.50 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
23/04/28 21:21:39.24 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:デフォルトの名無しさん
23/04/28 22:05:44.60 xyEtsQeE.net
>>627
なるほど、INDEX,MATCHに拘らない系ですね
ちょっと試してみます、ありがとうございます
GPTさんにいくら聞いても修正コードが通らなかったので助かりました
637:デフォルトの名無しさん
23/04/28 22:07:31.25 q2nR+ZdU.net
すみません
フォルダの中にあるExcelのファイルを指定のシートのみ残してその他のシートを削除して保存するVBAは組めるでしょうか？
その他にも指定のセルの値をファイル名として保存する方法は可能でしょうか？
638:デフォルトの名無しさん
23/04/28 22:16:54.88 h0I1nwu1.net
チャジれカス
639:デフォルトの名無しさん
23/04/28 22:45:44.43 BEXA+iPo.net
>>629
可能かどうかと言われれば可能。
ただ、誰かが開いてたりすることがあるのであれば
その考慮は必要。
640:デフォルトの名無しさん
23/04/28 23:28:17.83 xyEtsQeE.net
>>627
ん？良くみたらこれはmatchの置き換えをしてるだけ？
641:デフォルトの名無しさん
23/04/28 23:33:05.22 q2nR+ZdU.net
>>631
ありがとうございます
642:デフォルトの名無しさん
23/04/29 00:11:05.56 139vt90Q.net
いつもの否定君息してる～？
643:デフォルトの名無しさん
23/04/29 03:45:20.62 +IUP3Yu9.net
Excel2013でブックやワークシートにコードは貼れますが特定のセルにだけコードを貼って動作させるというような事はできないんでしょうか
コードからセル範囲を指定するというような事しかできない？
644:デフォルトの名無しさん
23/04/29 05:48:46.87 CXMs2SVp.net
>>635
どゆことかよくわからんけどイベントプロシージャのことかな?
645:デフォルトの名無しさん
23/04/29 06:57:41.72 +IUP3Yu9.net
そうです
ワークシート以下の単位はないから貼れないんですかね多分
646:デフォルトの名無しさん
23/04/29 07:07:50.60 CXMs2SVp.net
>>637
いやどゆことかよくわからんけど、例えばchangeイベントなら変更されたセルのrangeを取得できるからそこにコードを仕込むことはできるけど。。。そゆことじゃなくて?
647:デフォルトの名無しさん
23/04/29 16:14:48.16 eiNFh+Wm.net
ファイルのパス、フォルダのパスをDimではなくConstで書く方がより正確性が増す
より確実に動作をする
という事はあるのでしょうか？
648:デフォルトの名無しさん
23/04/29 16:25:03.32 vp07q8LL.net
Constで正確性？確実？
エスパーすると関数型風に書きたいってことかな？
VBAでは無理だからそういう考えは捨てた方がいい
649:デフォルトの名無しさん
23/04/29 16:25:12.56 WvPbxn9Z.net
ない
650:デフォルトの名無しさん
23/04/29 17:18:17.07 eiNFh+Wm.net
休みの日も一生懸命考えていましたがきっと私にそれを求められていないし、提案や進言をしても却下されるからもういいや
651:デフォルトの名無しさん
23/04/29 17:37:46.68 vp07q8LL.net
VBAは制限多すぎるから何か自分なりの考えを実践したいなら別の言語も検討したらいいぞ
652:デフォルトの名無しさん
23/04/29 17:57:33.75 6pUnwcoa.net
俺のエスパーだと、うっかり内容を書き換えてしまう事故が防げるって意味で言ってる？
653:デフォルトの名無しさん
23/04/29 18:09:49.02 kR657gEs.net
>>639
馬鹿の考え休むに似たり
654:デフォルトの名無しさん
23/04/29 18:32:46.88 eiNFh+Wm.net
>>645
もういいですどうでも
みたいな感じです投げやりになろうかな
655:デフォルトの名無しさん
23/04/29 19:09:19.53 vp07q8LL.net
うーん一生懸命とかいうワードが出てくるって事は若い子なのかな
プログラミングはむしろ楽するための手段だからどうやったら楽できるかの観点で考えようぜ
656:デフォルトの名無しさん
23/04/29 19:35:35.63 eiNFh+Wm.net
>>647
やっぱり一生懸命なのは若い人なのですね
一生懸命頑張ってもどうにもならないですもんね
657:デフォルトの名無しさん
23/04/29 19:43:44.26 eiNFh+Wm.net
私には何も決められないし、何も権限もないから勉強するだけ時間の無駄でした
一生懸命するだけ無駄でしたね
658:デフォルトの名無しさん
23/04/29 19:45:58.20 vp07q8LL.net
わかったchatGPTで慰めてもらえ
659:デフォルトの名無しさん
23/04/29 19:58:39.17 3f5XVnjz.net
せっかく便利なマクロ作ってもあまり感謝されないとき悲しくなりませんか？
660:click
23/04/29 20:08:00.17 ueoxn1ZD.net
組み込み屋ならconstはROMに配置されてRAMを圧迫しないとか考えてそう。
661:デフォルトの名無しさん
23/04/29 20:08:33.11 eiNFh+Wm.net
>>651
過去と他人は変えられないそうです
世の中にはITに疎い人たちがまだまだいるのです
662:デフォルトの名無しさん
23/04/29 20:30:49.52 vp07q8LL.net
いや>>639が質問にもなってない事に一向に気付いてない辺り一生懸命さが足りてないな
論文の出だしの問題提起として>>639を前置きして、その後に持論が展開されるならは意味が判るのだが、その後のレス支離滅裂だし
論理的思考力を鍛えるべきだね
663:デフォルトの名無しさん
23/04/29 21:55:57.78 nnQvwkBD.net
妬み僻みが先にたって、
集合知にならない日本人の悲しさ
664:デフォルトの名無しさん
23/04/29 22:17:57.28 NIajcuht.net
こういう頭の弱い人が作ると大文字限定とかなりそう
665:デフォルトの名無しさん
23/04/30 05:15:21.17 9FCAizuG.net
>>651
こういうツールを使いこなせる俺すげーってなっちゃうから
666:デフォルトの名無しさん
23/04/30 06:07:32.17 SF8fLpoq.net
>>653
過去は絶対に変えられないが他人は変えられる可能性がある。
実際『過去と他人は変えられない』という話をどこの誰から聞きかじったのかは知らないが、あなたはその言葉を聞いてその考え方に変わったわけだ。
あなたの立ち居振る舞いによってあなたの周りの人たちは変わる可能性がある。
667:デフォルトの名無しさん
23/04/30 08:01:15.57 GVkkkwIT.net
>>651
そこは乗り越えました。親の気持ちになって与える側だと思って使っている人を暖かく見守りましょう
そして、感謝無く文句しか言わない奴にはID取得して動かないように仕込んでおきましょう（UserNameで取れるか試しておきましょう、大概従業員番号か端末番号です）
668:デフォルトの名無しさん
23/04/30 08:07:07.01 kGukyGZB.net
社内汎用なのにコードにパス掛けてる人って何なの？と思うんですよね。別に機密でも無いしいじり壊すヤツなんていやしないし開けておけよと良く思います
こういう人は自分のやったことを抱え込みたい人が多いんですかね？
669:デフォルトの名無しさん
23/04/30 08:37:28.66 mp9OxrP6.net
褒められたい
認められたい
尊敬されたい
何か間違ってますか？
670:デフォルトの名無しさん
23/04/30 09:41:48.68 n+FRgVAt.net
>>658
確実にウザがられますから
671:デフォルトの名無しさん
23/04/30 11:07:37.09 vWJSQfSu.net
たまたまマクロ使えただけとかいうクソがいてマジでイラつくわ
672:デフォルトの名無しさん
23/04/30 11:38:27.17 n+FRgVAt.net
>>658
それはあなたがまだまだお若いからです
猛勉強をして医学部になり研修医になり医者になった人が、それからも成功したいと思い開業医になり、猛勉強をしながら人のために何をしたらいいのかと考え続けておられましたが、そうした生活の中で得られた結論は「他人を変えられない」でした
673:デフォルトの名無しさん
23/04/30 12:01:39.99 n+FRgVAt.net
Bingのチャット面白いですね
674:デフォルトの名無しさん
23/04/30 13:38:29.83 pCoVes+C.net
>>664
医者と関係なくない？
というかなぜ医者の話をしたの？
675:デフォルトの名無しさん
23/04/30 14:58:48.37 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:デフォルトの名無しさん
23/04/30 14:59:03.71 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:デフォルトの名無しさん
23/04/30 16:08:17.99 nWN6HH2r.net
RemoveDuplicates はメソッド メソッドとはオブジェクトを操作する命令文
dupCount はCellの数を削除前と後でCount辺りで別途算出
678:デフォルトの名無しさん
23/04/30 17:39:59.36 xlDTnGib.net
「ちょうふく 」と読む人と「じゅうふく」と読む人いるね
679:デフォルトの名無しさん
23/04/30 17:43:09.61 n+FRgVAt.net
>>666
一生懸命勉強をして頑張っている人でも人を変えるのは無理だというのが結論なのにあなたにはそれが出来るのですか？
680:デフォルトの名無しさん
23/04/30 17:58:36.35 V4pO/PXO.net
「じゅうふく」と読む人と「ちょうふく」と読む人いるね
681:デフォルトの名無しさん
23/04/30 18:10:45.40 SF8fLpoq.net
すでに回答あるけどエラー表示通り、Long型の変数にRangeを入れようとしてるから
検証してないけど
rng.RemoveDuplicates Columns:=1, Header:=xlNo
で動くかな?カウントは処理前後で取得すればいいかと。
682:デフォルトの名無しさん
23/04/30 21:51:10.68 izKLiPLe.net
>>669
>>673
出来ました。ありがとうございます。
683:デフォルトの名無しさん
23/04/30 23:47:19.54 xlDTnGib.net
>>672
どちらが正解かな？
684:デフォルトの名無しさん
23/04/30 23:54:50.78 RAvx61h8.net
ダブり
685:デフォルトの名無しさん
23/05/01 08:25:17.17 Bz4H7pRU.net
>>675
どちらも正解だけど一般的にはちょうふく
686:デフォルトの名無しさん
23/05/02 17:39:15.35 s64+rcVS.net
Option Explicit は使った方が良いですか？
Lastrowが多すぎて外していたんですけどやめた方がいいのかわからない。
直すのも面倒
687:デフォルトの名無しさん
23/05/02 18:06:55.02 rzS4cwhi.net
>>678
苦行が好きならどうぞ外してくださいな。
688:デフォルトの名無しさん
23/05/02 19:43:32.75 5m1nmjju.net
>>678
そんなことも人に聞かないとわからない人は外さない方がいい
689:デフォルトの名無しさん
23/05/02 19:52:52.48 +blsYFqi.net
Option Explicitを使用することをお勧めします。Option Explicitは、VBAプログラム内で使用されるすべての変数を明示的に宣言することを強制するため、タイプミスやスペルミスなどのエラーを防止するのに役立ちます。
また、変数を宣言することによって、コードの読みやすさと保守性を向上させることができます。たとえば、変数のデータ型が分かっている場合、誤ったデータ型によるエラーを防止することができます。
つまり、Option Explicitを使用することは、より正確で安全なコードを作成するために重要です。したがって、可能な限りOption Explicitを使用することをお勧めします。
また、コードの修正が面倒である場合でも、過去のコードを修正することで、将来的に発生する可能性のあるエラーを防止することができます。
690:デフォルトの名無しさん
23/05/02 19:56:11.18 DG7CtCYh.net
フィルターの項目事、あるいはセルの項目ごとにシートにコピーするかファイルに出力する方法はありますか？
691:デフォルトの名無しさん
23/05/02 22:53:54.12 W01QlVgz.net
ありまぁす
692:デフォルトの名無しさん
23/05/03 04:56:22.98 KcOhtZMX.net
過去スレにそんなもんは付けないよとかほざく猛者いたな。
理由は支離滅裂だったけど
693:デフォルトの名無しさん
23/05/03 08:16:46.41 zwp10Saa.net
本当ならOption Explicitの他にOption Strictも欲しいくらい。
ただ、それに慣れるとVBSやJavaScriptみたいな言語に当たったときに一瞬躊躇するから
型に関してはそれが読み取れるような変数や定数の名前の付け方をするように心掛けてはいるけど中々難しいんだよね
接頭に型を現すような文字付けるのも有りっちゃ有りなんだけどなんか「あー、初心者がよくやるよね」みたいな感じがしてちょっとイヤ
694:デフォルトの名無しさん
23/05/03 08:38:47.67 07Dbowlh.net
jsはletあるやん
695:デフォルトの名無しさん
23/05/03 17:42:16.15 6h8oPcDB.net
BingのAIと会話してみた感想
サイトの記述を引用しているだけだから自然な文章なのは当然
回答パターンがまだまだ少ない
いいねボタンとバットボタンがある
いいねの多い回答だけ残す、バットの多い回答は表示させない
↑であれば当たり感触のない回答しか学習しない、人間の知能を越える事はない
そしてそのやり方は前からあったシミレーションのプログラムと同じ
696:デフォルトの名無しさん
23/05/03 17:46:59.65 8i/q/Kgr.net
何そのツッコミ待ち
697:デフォルトの名無しさん
23/05/03 19:15:10.32 KcOhtZMX.net
BingのAIはすぐ拗ねちゃうからな
698:デフォルトの名無しさん
23/05/03 19:36:47.70 6h8oPcDB.net
ChatGPT 3.5は出鱈目な回答をしていた 4.0になって当たりざわりのない回答になった
そういう事でしょう？
699:デフォルトの名無しさん
23/05/03 19:40:16.52 Kv12u2jn.net
お前がそう思うんならそうなんだろう…お前ん中ではな…
700:デフォルトの名無しさん
23/05/03 19:41:04.17 Ia3mFb59.net
有用性とか将来性が分からなければそれでいいんじゃね
勝手に遠ざけてどんどん取り残されればいいさ
701:デフォルトの名無しさん
23/05/03 20:14:55.06 F2sofNfH.net
Lastrowってどんな感じで変化させてる？
シート数多すぎて混乱する
702:デフォルトの名無しさん
23/05/03 21:36:02.93 6h8oPcDB.net
野獣先輩 と聞けば回答を途中で打ち切る
しかし 中国 野獣先輩 と尋ねると中国での野獣先輩ブームをスラスラ答える
703:デフォルトの名無しさん
23/05/03 21:51:50.56 6h8oPcDB.net
やーい AIの癖に掛け算も割り算もできない奴～
704:デフォルトの名無しさん
23/05/03 23:21:43.78 nQu3mtYe.net
Bingさんは普通に計算できるが？
705:デフォルトの名無しさん
23/05/04 17:35:46.71 SG8oVDU2.net
複雑なのはダメ。
706:デフォルトの名無しさん
23/05/04 19:50:34.95 Sg4+jaA6.net
AIの回答には引用元のリンクがあるので著作権問題に繋がるのもよく分かる
707:デフォルトの名無しさん
23/05/05 06:38:40.34 P+m46K4i.net
>>693
クラスモジュールの出番だな
708:デフォルトの名無しさん
23/05/06 10:27:00.05 fVwKK7Qd.net
仮にここから5.6.7とバージョンを重ねてデータベースが増えたと言ってもそれはますます膨大な情報量によって平均への回帰とかよくあるご意見になるだけだと思う
膨大なデータベースがあるからとほぼ全ての人間が間違っていると考える答えを導き出しますか？
そうでなくてもデータベースにない（人間の盲点）情報は出鱈目な回答を生成しますよ
現状は人間が検索していくつものサイトを見て得た情報を代わりに要約してくれる（しかもその要約も正しいか不明、正しいとしても他に見るべき情報は本当にないのか？）程度の品物だと思う
つまり検索エンジン
709:デフォルトの名無しさん
23/05/06 10:47:11.02 fVwKK7Qd.net
人型ロボットの進化も著しいものがあります
しかし直ぐに壊れる、壊れやすいと言う欠点（これは私も盲点だった）が露呈した
「人型ロボットはここまで進化した（している）」という短い動画を見て凄い、凄いと言っていただけでその裏側を見ていなかった
ごく一部の切り取りだった
710:デフォルトの名無しさん
23/05/06 12:49:51.00 DOnaG3pX.net
独り言とかどうでもいい
711:デフォルトの名無しさん
23/05/06 13:01:03.66 fVwKK7Qd.net
>>702
あれだけAIが凄いと言っていた人が多いのに？
712:デフォルトの名無しさん
23/05/06 15:26:46.40 V/5WCcXW.net
多いんじゃ無くて、特定の少数がやかましいだけ
新しい技術はまずは様子見するのがベテランだろ 触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む
今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ
急がば回れ 慌てるコ〇キは貰いが少ない 善は急げで道端の石に蹴躓いてたんじゃ元も子もない
713:デフォルトの名無しさん
23/05/06 17:05:38.77 uYMm8A/b.net
様子見するのはベテランじゃない
レイトマジョリティ、あるいはラガードな
714:デフォルトの名無しさん
23/05/06 17:25:28.28 l5Xh2UOq.net
これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か
715:デフォルトの名無しさん
23/05/06 17:25:52.89 V/5WCcXW.net
おお、かっちょいい呼び方 ま、覚えてられないと思うけど
散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし
HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし 何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで)
それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて イイネw
716:デフォルトの名無しさん
23/05/06 19:06:41.82 fVwKK7Qd.net
初めての試み
他の人がやっていない事
他と違う事
は往々にして頭がおかしいと言われます
AIがこれらの回答を生成してもそれは同じ
717:デフォルトの名無しさん
23/05/07 01:23:52.56 31z9TTNB.net
なんだかこのスレも気持ち悪くなったな。
718:デフォルトの名無しさん
23/05/07 01:49:32.50 oPHUqsU3.net
最初からだぞ
719:デフォルトの名無しさん
23/05/07 04:38:26.84 31z9TTNB.net
例の精神病んでる人が最近しつこいしな。
720:デフォルトの名無しさん
23/05/07 05:20:09.87 tNDxK8R1.net
AIに狩野英孝って書いて画像生成させてみ？
女性しか生成されないぞ？
721:デフォルトの名無しさん
23/05/08 17:42:02.89 4wzuVWZF.net
5：20に何を言ってるんだ？
722:デフォルトの名無しさん
23/05/08 20:14:43.36 sHCjNd7k.net
肖像権の侵害
723:デフォルトの名無しさん
23/05/08 21:20:01.63 mh5d7unG.net
>>693
シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね？
724:デフォルトの名無しさん
23/05/10 00:19:20.08 ispoDagW.net
そうね
エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と
ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と
2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、
最終行以外の何かしらのシート情報を持たせるならクラスを、
そうでなければそれ以外の方法を使う感じになると思うのだけれど、
実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね？
個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。
725:デフォルトの名無しさん
23/05/10 12:35:00.38 kLH3jMBB.net
揮発性メモリなら生成コストも比較してる？
726:デフォルトの名無しさん
23/05/10 14:00:21.35 t+3iUujv.net
test
727:デフォルトの名無しさん
23/05/10 14:06:43.49 t+3iUujv.net
トグルA、Bがあって、
①(初期状態)AがOFF BがOFF
②AをON
③BをON
の順に操作した場合、
まず②で、トグルA_Click()イベントのみ発生
③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、
前からそういう挙動でしたっけ？
728:デフォルトの名無しさん
23/05/10 15:00:24.82 t+3iUujv.net
>>719は無視してください。
729:デフォルトの名無しさん
23/05/10 15:13:48.51 t+3iUujv.net
トグルA_Click()のイベントプロシージャの中に、
トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました)
トグルBがONになっている�
730:ﾔでトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。 この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。 これは仕様ですか？
731:デフォルトの名無しさん
23/05/10 17:55:26.74 iwbfLeO4.net
仕様です
732:デフォルトの名無しさん
23/05/10 19:03:43.77 +eiaChgK.net
ならしようがないね
733:デフォルトの名無しさん
23/05/10 21:12:59.13 o4erV5Yp.net
スレチっぽいですが、わかる方いましたら回答をお願いします。
VBAとSeleniumを使用してスクレイピングをしたいのですが
1枚の画像を取得するだけでもメモリ不足と出ます。
ChatGPTに聞いたら
734:デフォルトの名無しさん
23/05/10 21:13:48.62 o4erV5Yp.net
Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。
と返答がきましたが、VBAでは重くなるのでしょうか？
735:デフォルトの名無しさん
23/05/10 21:15:41.06 mDjUk4R1.net
>>724
プログラムが間違ってる可能性のが高い
736:デフォルトの名無しさん
23/05/10 23:57:34.43 o4erV5Yp.net
>>726
ありがとうございます。
何か負荷がかかることをしているのかもしれませんね
もう一度見直してみます。
737:デフォルトの名無しさん
23/05/11 11:43:08.05 1+aaeJbv.net
そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい とか、もっと前向きに
単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど）
738:デフォルトの名無しさん
23/05/11 11:51:22.37 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:デフォルトの名無しさん
23/05/11 11:58:50.33 6FktRVdV.net
>>729
"mm/dd""(""ddd"")"""
740:デフォルトの名無しさん
23/05/11 12:26:29.64 AMweY8Mr.net
>>730
エラーは出なくなりましたが表示形式は変わりません。
これは"を一つ追加したようですがどういった意味があるのでしょう
741:デフォルトの名無しさん
23/05/11 13:08:23.72 6FktRVdV.net
>>731
前略Offset(1).Value = Now
742:デフォルトの名無しさん
23/05/12 06:37:47.52 RwI7vd5H.net
仕事でVBAマクロを使用しておりそのマクロではapplication ontime？ を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます
一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます
わかりにくくてすみませんがアドバイスよろしくお願いします。
743:デフォルトの名無しさん
23/05/12 07:53:35.95 hB6iHQ/6.net
興味深い現象だな
744:デフォルトの名無しさん
23/05/12 08:45:29.16 273OhBWp.net
>>733
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す
任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる
745:デフォルトの名無しさん
23/05/12 11:06:37.75 7uGQBCYW.net
その、閉じますかマクロは必須、必要な処理なのか？意図がわからない
むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？
746:デフォルトの名無しさん
23/05/12 11:59:40.51 /sP06OC3.net
職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない
747:デフォルトの名無しさん
23/05/12 17:51:08.96 xsCXSmel.net
ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？
748:デフォルトの名無しさん
23/05/12 18:03:43.71 273OhBWp.net
ある
749:デフォルトの名無しさん
23/05/12 20:13:32.86 f5ZiP8iw.net
一つお尋ねしたいのですが
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています
750:デフォルトの名無しさん
23/05/12 20:38:30.74 8W63Tv/2.net
組める
お前の頭が追いついていないだけ
751:デフォルトの名無しさん
23/05/12 21:51:44.25 f5ZiP8iw.net
URLﾘﾝｸ(daitaideit.com)
このコードを応用すればできそうな気がしてきました
752:デフォルトの名無しさん
23/05/13 00:26:35.42 XDOekk9R.net
シート1をシート2に転記
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー
最終的にこうしました
753:デフォルトの名無しさん
23/05/13 08:56:53.55 IDKvuPgu.net
たまにしか使わないマクロを
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。
754:デフォルトの名無しさん
23/05/13 10:14:45.62 qLGZy+iI.net
たまにしか使わないのとよく使うマクロを区別する方法がない
755:デフォルトの名無しさん
23/05/13 11:55:35.18 /fPWBZJh.net
PERSONAL.XLSB内の個人マクロかなんかのこと？
使わないのはprivateにでもしたらいい
756:デフォルトの名無しさん
23/05/13 14:12:54.71 GFR2hXVT.net
てすと
757:デフォルトの名無しさん
23/05/13 17:08:43.77 V8yG/UHy.net
>>744
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。
758:デフォルトの名無しさん
23/05/13 23:12:26.90 25Zi9cll.net
UserFormにボタンを追加した後、ボタンをダブルクリックすると、
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか？
759:デフォルトの名無しさん
23/05/13 23:22:19.81 HLBQiI9F.net
一番上固定かな？
760:デフォルトの名無しさん
23/05/14 00:50:10.90 T/aUw/Co.net
一番上とか一番下なら分かりやすいんですが、そうならないんですよね。
追加した順でも、VBE上の直前のカーソル位置でもなく。
761:デフォルトの名無しさん
23/05/14 08:49:07.12 NGLUYN6O.net
With
Worksheets(1)
Debug.Print .Name
Worksheets.Add Before:=Worksheets(1)
Debug.Print .Name
End With
と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？
762:デフォルトの名無しさん
23/05/14 09:12:17.84 l3SxB+lY.net
それ以外にも記述できたらどれに記述してるかわからなくなりますやん
763:デフォルトの名無しさん
23/05/14 11:24:04.23 RX81XCn0.net
IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？
綺麗なコードの書き方のアドバイスお願いしたいです
764:デフォルトの名無しさん
23/05/14 11:56:15.05 /qnsVbR/.net
>>754
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる
765:デフォルトの名無しさん
23/05/14 14:28:00.07 NGLUYN6O.net
オートフィルターを設定
セルの値でフィルター
別シートにコピー
.copy（名前をつけて保存）
までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？
ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました
766:デフォルトの名無しさん
23/05/14 17:40:28.14 RbSCBcNR.net
VBScriptの公式ドキュメントどこに行ったんですか！？！？
767:デフォルトの名無しさん
23/05/14 23:25:20.98 ugePsCnu.net
>>757
それがこのスレと何か関係あるのか？
768:デフォルトの名無しさん
23/05/15 01:52:14.73 qI8Xfg30.net
うるせえ！
769:デフォルトの名無しさん
23/05/15 20:37:17.97 XzAuzUrA.net
sheet（2）,range.value = sheet（1）,range,value
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか？
770:デフォルトの名無しさん
23/05/15 21:25:34.18 uCrsxXET.net
エクスプローラ上で画像選んで
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね？
ググってみたら以外と出てこなくて…
771:デフォルトの名無しさん
23/05/15 22:52:46.17 +mRHKUjh.net
URLﾘﾝｸ(excel-ubara.com)
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？
772:デフォルトの名無しさん
23/05/16 13:06:53.10 P46L4qJ3.net
>>739
ありがとうございます
773:デフォルトの名無しさん
23/05/16 13:52:02.22 pE03OLEM.net
>>762
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ
かと言って、これだけのためにライブラリ追加したりってのも…
WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし
774:デフォルトの名無しさん
23/05/16 14:01:09.62 HY4KEFhG.net
vbcコンパイラ入ってるからexe作っちまえよ
775:デフォルトの名無しさん
23/05/16 14:58:33.26 xHVT0jsn.net
ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ
vbaからgdi+はネット上にかなりの資料があります
776:デフォルトの名無しさん
23/05/16 15:38:41.06 KioSfVLt.net
>>764
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ
777:デフォルトの名無しさん
23/05/16 17:26:18.33 LV7QjD3v.net
Worksheets(～).Copy
ActiveWorkbook.SaveAs fileName:= ～ =xlOpenXMLWorkbook
ActiveWorkbook.Close
でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません
なぜでしょうか？
778:デフォルトの名無しさん
23/05/16 20:44:51.09 AsBF0aZH.net
シート（A）に記入します
シート（A）を複製するコードを実行して
シート（A）2を作成します
シート（A）2に記入します
シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？
779:デフォルトの名無しさん
23/05/17 11:46:37.22 RlbRWgaL.net
ど初心者で申し訳ない
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？
780:デフォルトの名無しさん
23/05/17 13:37:03.45 CM8OYJGJ.net
なぜその程度の事を試さないでいるのかわからん
781:デフォルトの名無しさん
23/05/17 20:26:57.88 Y2fbuf/F.net
>>770
ユーザーフォームの表示位置は設定できるんだから
後はAPIでもなんでもいいから一定時間で起動するイベントで
位置をずらして行けばいいだけじゃないの？
そういう意味じゃなくて？
782:デフォルトの名無しさん
23/05/17 20:34:40.20 edeIW3zk.net
自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ 部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか？ マウスで好きな位置にドラッグしろと突っ撥ねろ
783:デフォルトの名無しさん
23/05/17 20:36:59.98 jhfa7U3i.net
懐かしのブラクラかよ
784:デフォルトの名無しさん
23/05/17 22:00:50.03 KPgK0GXZ.net
やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します
785:デフォルトの名無しさん
23/05/17 22:19:01.82 B0NmirsY.net
なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ
786:デフォルトの名無しさん
23/05/17 22:37:47.21 dtCX3F+n.net
>>770
なんでそんな事が必要って話。
マウスが無いなら別だけど。
787:デフォルトの名無しさん
23/05/17 23:14:20.94 CM8OYJGJ.net
>>775
2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる
セルの値を比較するだけなら単純にセルの前にシート名を書けばいい
788:デフォルトの名無しさん
23/05/18 00:00:54.09 wiHk9Ekj.net
>>778
どういう事でしょうか？
789:デフォルトの名無しさん
23/05/18 00:19:39.19 re225Wjq.net
>>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな
If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If