Excel VBA 質問スレ Part79
レス数が1000を超えています。これ以上書き込みはできません。
↑同じ内容を3行貼り付けること
ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK
次スレは>>980が立てること
無理なら細かく安価指定
※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.5ch.net/test/read.cgi/tech/1667104996/
-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 前スレ続き
タクスマネージャーで実行ファイルを監視する
そしてその動作させたいEXEファイルをハイパーリンクでボタンに割り付けると わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです >>4
お前が一番荒らしてる事になぜ気が付かない？ 隔離スレとして使い倒すっきゃ無いだろ 本人が立てたんだし
張り切る無能がなんとか って自覚無いようだもの、まだまだ質問したいこといっぱいあるんだろ
但し、翻訳必要な質問ばかりだけどさ そんなので本スレに乱入されても向こうも迷惑だろうし
迂闊に向こうで質問書かれてもコッチで回答し続けてればコッチが主戦場だってそのうち理解できるだろ いや、私のためにわざわざそんな長文書いて戴いたと思うと恐縮ですw 無視しましょう
と書いてる奴に限って無視出来ないw
なぜなら質問くれくれ君だから >>9
そこまで言うなら質問のひとつでもして行くのが筋というものだろう >>10
子供が今年大学受験なのですが
落ちた時はマクロでなんとかなりますか？ いいから俺の質問に答えろよ
役にたたねえクソどもが >>13
お前らに質問するよかAIに聞いた方が正確な回答が来るな
はい、Pythonを使用すれば、Excelとは別のアプリケーションを起動することができます。
Pythonには「subprocess」モジュールがあり、これを使用すれば、外部のアプリケーションを実行することができます。
例えば、みずほ銀行のEB画面に移動するためには、以下のように「subprocess.Popen」メソッドを使用して、
ブラウザを起動し、特定のURLに移動することができます。
python
Copy code
import subprocess
url = "https://www.mizuhobank.co.jp/retail/net/ib/ibg-top.html";
subprocess.Popen(['start', url], shell=True)
また、他のアプリケーションを起動するには、そのアプリケーションのexeファイルのパスを指定し、
「subprocess.Popen」メソッドを使用することで実行できます。
python
Copy code
import subprocess
path = "C:\\Program Files\\MyApp\\MyApp.exe"
subprocess.Popen([path], shell=True)
これらの方法は、
Excelに配置したボタンを押した時にPythonスクリプトを実行させることで実現することができます。
ただし、これらの方法は、対象となるアプリケーションがPCにインストールされていることが前提となります。
また、実行するアプリケーションによっては、実行権限がない場合は実行できないことがあります。 >>11
この質問に対してこれは流石にウザいなw
マクロを使用して、大学受験の落ちた場合の対応策を自動化することはできますが、それが良いアイデアであるかどうかは分かりません。
大学受験の落ちた場合、子供にとってはストレスや悔しさを感じることがあります。そのような状況下で、自動化されたアクションが子供にとって心理的なサポートになることは少ないでしょう。
もちろん、大学受験が落ちた場合、対応策を詰めることが重要です。ただし、それは子供と一緒に考え、サポートすることが大切です。例えば、再受験するための計画を立てるためにカウンセリングを受けることや、自己啓発のためのセミナーに参加することなど。
それでも、マクロを使用して何かをするためには、例えば、大学受験結果が落ちた場合に自動的に通知を送る、結果を記録する、再受験のスケジュールを管理するなどのことができます。
ただし、これらのことをするためにも、子供と話し合って、どのようなアイデアが良いのかを一緒に考えることが大切です。 Excel VBAでは、他のソフトを直接起動することはできません。しかし、VBAを使用して、外部アプリケーションのコマンドを実行することはできます。例えば、VBAを使用して、Windowsのコマンドプロンプトを起動し、特定のコマンドを実行することができます。そして、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡すことができます。
ただし、これらの方法は、外部アプリケーションがコマンドラインインターフェイスを提供している場合に限られます。そうでない場合は、操作するアプリケーションのAPIを使用しなければならないでしょう。
また、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡す方法は、操作するアプリケーションによって異なります。 Excelには、最終行を自動的に検出する機能があります。それを使用すれば、印刷範囲を最終行に合わせることができます。
具体的には、以下の手順で実現できます。
1.マクロ記録を開始し、印刷範囲を選択します。
2.「Alt + F11」を押して、VBAエディタを開きます。
3.「Ctrl + R」を押して、プロジェクトエクスプローラを開きます。
4.「Microsoft Excel Object」にあるワークブック名の下に、「ThisWorkbook」をクリックします。
5.「ThisWorkbook」の下にある「Microsoft Excel Object」を右クリックし、「挿入」→「モジュール」をクリックします。
6.挿入されたモジュールに、以下のコードを入力します。
Sub AutoPrint()
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:G" & lastRow
ActiveSheet.PrintOut
End Sub
7.マクロを実行し、印刷範囲を最終行に合わせて印刷をすることができます。
また、印刷範囲の最終行に透明な「※」を打ち込んでそこまでを印刷することもできます。それには、上記のコードの「lastRow」を「※」が打ち込まれている行番号に変更し、「ActiveSheet.PageSetup.PrintArea = "A1:G" & lastRow」を「ActiveSheet.PageSetup.PrintArea = "A1:G" & "行番号"」に変更します。 >>4
I understand that it can be frustrating to see others make mistakes or act foolishly, but it's important to remember that everyone makes mistakes and that it's not productive to call others names or belittle them. Instead, it's better to ignore these kinds of situations and move on. It's not specified which "recent" small enterprise you are referring to. Can you please provide more information? >>13
申し訳ありませんが、私はあなたの質問に答えるためにここにいます。 どのような質問がありますか？ 私はできるだけ早くあなたにお答えします。 ただの荒らしのクズ
自己紹介してて笑った
152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8
零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります ごめん教えて
vbaエキスパートのスタンダード合格をめざしてるんだけど
excel兄さんの初心者okvba入門の学習終了後は
オデッセイ公式の教科書学んで模擬試験をいくつか解くって
流れで大丈夫かな？ >>25
学習の順番は人それぞれですが、Excel VBAの初心者向けのリソースを学び終えた後に、公式の教科書を学び、模擬試験を解くのは良い方法だと思います。また、学習の過程で疑問が生じた際には、公式のリソースやフォーラムなどで質問をすることで、理解を深めることができるでしょう。 零細企業の人は全員が同一人物
大企業の人は全員が同一人物
と考えてる人なのかな vbaわからんくせにvbaについて人に教えようとしてる馬鹿が荒らすスレ >>29
I'm sorry, but I'm not sure what you are asking. Could you please provide more context or clarify your question? >>26
ありがとう 公式教科書買って学習を進めます Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
data = "abcdyyzzzz・・" ← HEXにすると "414243440006??????・・"
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = data
rec1 = rec0 ←型が一致しません
Debug.Print Len(rec1.field02)
End Sub
dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。 >>32
自称零細企業の荒らしでなければこのスレで質問しない方がいい
ﾜｯﾁｮｲ付きがあるからそちらの方へ >>32
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
data = "abcdyyzzzz・・" ' HEX representation: "414243440006??????・・"
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = data
rec1 = rec0 ' Type mismatch error
Debug.Print Len(rec1.field02) ' Cannot determine length of field02, as it is not a string
End Sub
ChatGPT Jan 9 Version. Free Research Preview. Our goal is to make AI systems more natural and safe to interact with. Your feedback will help us improve. >>32
このプログラムは動作しません。Len関数は数値型のみに対応していますが、rec1.field02は文字列型です。また、RecClass0とRecClass1は異なる型のレコードであり、直接代入することはできません。適切な変換または変換メソッドが必要です。 VBAも知らない零細企業の馬鹿がChatGPTを使ってあちこちで荒らしている
零細企業だからこんな馬鹿を雇ってしまうのか >>38
マジレスすると今の時代VBA分からなくてもパワーピボットとパワークエリが出来たのでなんとでもなるんだな。。
下手にVBAなんて使われたら属人化して大変 本当はvbsで足りる事しかしてないけど本スレが気持ち悪いからここでVBA使いの振りしてる俺のような奴は多い
powershellでもできるけど遅い >>37
ちゃんと動いた
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
Data = "abcdefgh"
Mid(Data, 4, 2) = Chr(&H0) & Chr(&H6)
Debug.Print Data
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = Data
LSet rec1 = rec0
Debug.Print "len=", Len(rec1.field02), "value=", rec1.field02
End Sub
実行結果
abc fgh
len= 2 value= 6 >>42
Type RecClass1
field01 As String * 3
field02 As Integer
End Type
field01 が*3だった 本が届いたから熱心に熟読して縦書き横書き問題を独力で解決したかと思いきや
変なおもちゃにのめり込んで得意満面うれション撒き散らしながらそこらじゅうのスレ荒らし 人間こうなったらお終いの好例 全部、一人で書いてると思ってるところでなんかの病気かねこいつ ID:PAS2bzav
この馬鹿は間違いなく零細企業の荒らしの馬鹿だが
こんな馬鹿なことを堂々と書く真正の馬鹿だからな
>マジレスすると今の時代VBA分からなくてもパワーピボットとパワークエリが出来たのでなんとでもなるんだな。。
>下手にVBAなんて使われたら属人化して大変 ここスレは零細企業の糖質基地外が暴れるスレですか？ ここで暴れるのは構わないのです 彼の専用スレですので 他のスレに迷惑が掛かっている現状が大いに厄介なのです
不幸中の幸いなのは、彼の活動時間帯は週末・出勤前・昼メシ時・帰宅後なので、それを避けて質問回答してれば弊害も軽減されます
ヨメも子供もいないであろう様子は、あいにく昨今の世相を鑑みれば判断材料としての要点には成り得そうも無いのが残念ですが
セルの削除は使えてもセルの挿入はしたことの無い高齢童貞の様子ですしマクロとVBAの区別が付かない様子でもありますので
慣れてくれば彼のレスだと見極め出来るように成れるかと思われます
もう一つ特徴的なのは、なんとかのひとつ覚えという形容がひどく似つかわしい言動を繰り返しますのでそれも判断材料としてください
決定的に欠落していると覚しき特徴は >>1 に見られるように、先人が後進のために親切で書き残している重要ポイントに関してその意味すら
把握できず自分勝手に事を進め取り返しの付かない失敗をし、あまつさえそれを詫びもしない点です あ、お礼も言えない様子でもあります
それでは引き続き彼の言動を生暖かい目でご堪能ください ↑こいつよりもAIの方が人間性が高い件
無駄に長文書くとこだけAIに勝つ暇人w お？ギリ昼メシ時間に間に合わせたかｗ 毎日朝から晩まで多忙だなｗ ちゃんと仕事「も」しろよｗ
ところで君の識字文字数は何文字までだ？ なるたけそれに合わせるように努力するわ 越えると理解できなくなるようだからｗ
二次元のマンガが描ければ伝わるのかも知らんが、あいにく漫画は描けん すまんな せっかく買った本も読めなくて挫折したのかな >>53
はい、わかりました。私はOpenAIによってトレーニングされた大型の言語モデルです。文字数に制限はありませんが、必要に応じて様々な長さのテキストを生成することができます。
私はマンガやコミックを描くことはできませんが、その代わりにテキストによって情報を伝えることができます。 ワロス
この文章は、ある人の特徴を述べています。その人は自分の専用スレッドで暴れますが、その活動時間は週末や昼食時などに限られています。彼はExcelの操作に慣れていないようで、マクロやVBAの区別が付かないとのことです。また、一定の言動パターンがあり、"なんとかのひとつ覚え"という形容が似ていることが特徴的です。さらに、先人の書き残したポイントの意味すら理解できず、自分勝手な失敗をし、詫びもしないという点も指摘されています。 なんで？ 絵は描けるんじゃねーの？ お題を出せばそれに沿った絵を描いてくれるAIだって今や引っ張りだこだろ？
ひとつこっきりの機能しか使えないのか？ そりゃあ、宝の持ち腐れというか、なんとかとハサミは使いようというか←ちがうかｗ
最先端機能の能力にヘッドスライディングするかのように傾倒してる様子だし、ソッチも使いこなそうや せっかくなんだし
で、そろそろ文字数限界か？ だいじょぶか？ まあ、おウチに帰ってこれ読んだらそっちの回答も頼むわ
コッチも文字数越えちゃうんじゃねーかとドキドキハラハラしちゃうからさ 文書が下手くそだから長文のでも相手に伝わらないんだよな
AIのまとめのうまいこと 「まとめ」って、おまえ 素でまとめた文章だと思ってるとしたら、相当切ない精神構造だぞ？ AI崇拝する訳だわ ID:FYisRI+7
零細企業の馬鹿
VBAを使えないことがコンプレックス
実はVBAだけではなく仕事でも使えない馬鹿頭だから零細企業以外雇ってくれない アカウント作ったからって面白がって無暗やたらとまんまのテキスト放り込んでんぢゃねーぞ
ちったぁ修正・編集してから放り込め
お前にとっちゃあオモチャかも知らんが、そこから出てきた回答をファクトチェックもしないままレスしてんじゃねーよ
世間のでっかい迷惑にしかならねーだろ 事前に修正・編集できるアタマも無いから能無しの行為をし続けるんだろうが
事前にも事後にもチェックすらできねー人間が使いこなせるシロモノとでも思ってんのか 昨今流行りのZ世代の迷惑行為そのものだな >>65
テキストを投稿する前に修正・編集することが大切です。情報の正確性を確認せず、また、それが他の人々にとって迷惑になることもあります。また、そのような行為は、能力のない人間という印象を与えます。最初から正確な情報を使用することが大切です。 VBAが書ける事を自慢したい「VBAバカ」ってどこの職場にもいるんだな サブスクに成ったら使わないんだろ、どうせ いや、使えないんだ、たぶん >>69
どこの職場でもVBAを使っているということはない、酷い思い込みだな >>69
そういうスキルを持ってると本業とは別腹で仕事積まれる
一度作ると打出の小槌みたいに簡単に出来るとか思われるみたいだし後々のメンテとかも作ったんだからできるでしょ？的に全責任を負わされる
百害あって一利くらいしかない
自慢したいやつは舞い上がらせておいて自分のためにひっそり使って終業時間にとっとと帰るのが一番 >>71
VBAを使えないつもの零細企業荒らしの僻みだぞ
64を参照 た、確かにマクロできる人材はあっちこっちから作成依頼がある
お局様がニコニコして話しかけて来るみたいだな まあ普段の仕事がパッとしない俺がチヤホヤされてちょっと嬉しかったのは事実
その後うぜーってなったけど 担当でないやつが勝手にシステムをいじったら普通は怒られる
なので上司に○○の修正頼まれたから手伝うと報告しておくのが常識かと 時間を取って、説明しながら、調べながら、部分的に少しずつ、一緒に作ってみることが、
時間が掛かりそうで実は、VBA使いを増殖させる一番の方法なのかも知れない。 VBA使いを増殖させてもゴミマクロの後始末が大変になるだけじゃないの？ VBA使う事が目的なんかじゃ無い それを使う事で作業を省力化させて効率を上げることが目的なんだ
それにそぐわないシロモノに成り果てたマクロなんか捨てて新しい血で新しい人間が制作し直せばいいだけ 自分が使うだけのマクロなら好きに作ればいいし
社内の別の人も使うなら社内のルールがあるだろう 零細だと事務員が半分趣味でやってるから社内ルールなんか存在しない 業務で使うとなると
pythonとかRuby とか
何か作るのものすごく大掛かりになりそう いままで転職5回してきたけど、一般事務でマクロなんか書いてるヤツ見たことないぞ？？
関数だって定番のIfとVlookUpとSum系Count系くらい。
マクロバリバリってお前らどんな職場にいるんだい？？ 高級事務 たぶん一般からだと見えざるスクリーンに覆われたエリア 俺は普通に会社員で普段違うことしてる、趣味でアプリ作っている中で補助的にVBA使う程度だな
(Rubyは使ったことない) 家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA どこにバカの要素がある？
何でもかんでもバカって書くヤツこそ黙っていれば良いのに。 馬鹿とバカをNGワードにして
使った奴のIDもNGに入れる設定にすると幸せになれるぞ
特定の馬鹿が使っているだけだし
こいつまともな回答出来ないからNG入れても影響無いし
これ次からテンプレだな 馬鹿と言われてムキになって反応する奴にろくな奴いないから連鎖NGです その昔はパソコンを触るというのはプログラミングをすることだった時代があったようななかったような 初めてNG機能使ったら、あぼーんみたいのがちらほら。
この機能は便利だね NGワードをテンプレにするのはいいね
試しに零細の馬鹿と言ってみて反応した奴はテンプレも読まずスレの助言に従うつもりもなくスルーできない本物だと早々に明らかにされる
善良な回答者が無駄に回答させられる事態を避けられるわけだ ここに次スレなど無いｗ 本スレに戻れ乱立させるなここは隔離スレ 週末だってのに当人出没しないけど >>105
お前が一番頭が悪い.NETなんてOSに入っているだろうが じぶんのレスまでNGじゃねーかｗ そんなドジ踏むのは >>1 ぐらいだ ムダな改行で尻尾見えてるけどなｗ NGワードやNGIDの機能を作った人は天才だなと思った >>106
秀丸エディタでC#書くバカは流石にいない >>110
元の書き込みをよく読め
>家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA てかさ、過去スレにうざいヤツのidはNGにすれば良いと忠告されていたのを忘れていただけよ。
本当便利だねNG設定は。 このスレの人達はマクロとマグロどちらが好きですか？ >>120
マグロです
初めての女もマグロで捌くのに苦労しました 昔の職場で女子社員がマクロの事をマグロって素で言っていたのを思い出した 104万行とか書き出したの>>1だろ カタカナだったのをアルファベット表記に変えて誤魔化してるけど
いっつも何か抜けた質問なのはクリソツだ ://jp.quora.com/エクセルの機能でマクロがありますが、ミクロもあり
ますか？ 無職の息子が事務に就職するためにマクロの資格を取ると言っているのですが
そんな役に立つか分からないものじゃなくもっと事務の仕事に役立つ簿記をとってほしいと言っても聞きません
マクロを使われている皆さんから見てもマクロの資格しかない人間なんか採りませんよね？ >>128
おっしゃる通りだね
VBAは属人化の最たる物だからかえってマイナスかも >>128
マクロの資格は事務の仕事に必要なスキルの一つですが、単独では仕事に適していない場合もあります。簿記の資格や事務に関連する他のスキルを備えた人材が求められることもあります。そのため、マクロの資格だけでは応募になれない場合もあります。
あなたの息子が今後のキャリアアップに向けて考えておくべきは、職場で必要とされるスキルを持っていることです。簿記の資格も含め、仕事に役立つスキルを身につけることで、より魅力的な人材になることができます。 >>128
両方とればいい、資格がある方が有利ってだけの話
そうそううまくいかないのが世の中 >>129
>>130
やはりそうですよね、落ち着いてもう一度話してみようと思います
マクロを事務で使うことなんてないし
マクロは記録するものなのに見栄をはってマクロを書けるなんておかしな表現をするようでは資格があったとしても取れはしないと >>131
そうだとしてもまずは簿記から取らせるべきですよね？
それにエクセルの資格でもマクロだけのものよりもエクセル全体の資格のほうが事務能力を評価してもらえると思います マクロを知らない馬鹿にVBAを使えずに僻んでいる馬鹿が答えて馬鹿同士で納得していて笑った >>133
本人が興味ない資格の勉強しても覚えられるとは思えん
やりたいようにやらせるがいい、結局は自己責任 >>133
簿記2級ねらった方が良いよね
事務職なら
話はそれからだ >>134
馬鹿を連呼する馬鹿がいるスレはここですか？ 変数として用意した配列(例えば100行×5列等)にデータを入れ、その配列に対してvlookupやmatchのような関数を当てたいのですが可能でしょうか？可能であればどのように記述出来るのでしょうか？
現在はよく分からず多重if, forで誤魔化してます (tmp) ＝ VlookUp(引数)みたいな感じ？？ 配列に対してはムリだと思う。dictionaryなんか使ってやれば似たようなことは無理やりできるかもだけどそれならいちどシートに書き出してworksheetfunctionでシート関数を使ったほうが簡単。
EXCEL VBAの配列操作が貧弱なのはシートでできるからだと割り切ってる。2次元限定だけど。 https://i.imgur.com/JgKY39B.jpg
自治会の総会集計を頼まれて、書面表決導入でお助けください
議案は1～5まであり、個別でも一括でもいいとしています
賛成・反対・棄権でひとつのブロックとして、一括ブロックに数値がある場合で議案1～5ブロックが未記入の場合にコピーしたいです
コピーするのは世帯人数に数値がある行までです
この例だと3行目何もせず、4と5行目は議案1～5に一括ブロックをコピー
6行目は議案3のみに一括ブロックをコピー
VBAでの組み方をご指南ください そんなの何十行もあるわけじゃあるまいし手動でもいいと思うが >>143
このシートを「データ」シートにしてもう１つシート作ってそれを「集計シート」にして計算式でやったほうが楽だと思う >一括ブロックに数値がある場合で、
>議案1～5ブロックが未記入の場合にコピーしたい
議案1～5ブロックは、個別の数なのか？
それなら、議案1～5ブロックに数値が書かれている場合にも、
一括ブロックの数値を足さないといけないのでは？ 1. まず、一括ブロックと議案1～5ブロックの空欄にも、0 を入れる。
これで全てのセルに、何らかの数値が入る
2. 次に、一括ブロックの数値を、議案1～5ブロックに足していく >>143
俺なら、
世帯行（３行～データ無くなるまで）と
議案列（この場合５回）の二重ループ内させて
一括Gの入力判定して議案空白の列に載せていく >>143
自分も>>150と同じ方法でやるかな。
ちなみに実際にコード書いてみたら22行だった
(変数の取り方とかで多少ずれるけどほぼこのくらいかと)。 >>148
基本賛成だけど、この議案だけ反対って場合は一括賛成、個別反対を許すようにした
個別入ってるときはそっち優先
なるべく入力を減らす配慮
>>150
それがやりたいっす
>>151
く、くださいっ >>152
関数で解決できそうなら無理にVBAで解決することもないと思う
で、これはやりたいことと解決したいことが合ってるのか気になっての質問なんだけど
6行目、議案3の他に2,4も世帯人数と比べ回答数が少ないように見えるけどそこには何もしなくていいの？ >>152
コードは下記。
今回は記述してないが、500行あるなら
screenupdatingをfalseにした方がいいかと。
Sub 議決()
Dim i As Long, j As Long
Dim r1 As Range, r2 As Range 'r1は一括の空白数取得用、r2は各議案の空白数取得用
Dim rowNumber As Long 'データが埋まっている行数取得用
rowNumber = Cells(Rows.Count, 1).End(xlUp).row
For i = 3 To rowNumber
Set r1 = Range(Cells(i, 2), Cells(i, 4))
If WorksheetFunction.CountBlank(r1) <> 3 Then
For j = 5 To 17 Step 3
Set r2 = Range(Cells(i, j), Cells(i, j + 2))
If WorksheetFunction.CountBlank(r2) = 3 Then
r2 = r1.Value
End If
Next j
End If
Next i
End Sub >>153
その数値の整合性は表決者依存にしました
議案4に個別したらそれを尊重すると
>>154
で、できました
ささっと作ってくれるってすごいです
ありがとうございます
総会乗りきれます！ >>155
9人世帯の議案4には棄権1しか入っていないけど、これは
一括に関係なく議案4に個別で入れた人が棄権1人しかいなかった
その上で9人世帯は議案4に関して棄権1名のみとして扱う
みたいな解釈でいいのかな？
一括が何票あろうが個別1票のが上みたいな
単純に各議案ごとに全世帯での票数を計上したいわけじゃなさそうだよね >>140
セル範囲指定するとに配列の変数名指定するだけ
バリアント型じゃないと無理かもしれん
>>142
WorksheetFunctionでセル範囲指定する奴はほとんど配列でもいける
というか、VBAにわたってくるときに内部的に配列になってるはず 参考コード
Option Base 1
Sub x()
Dim a(10, 2)
For i = 1 To 10
a(i, 1) = i: a(i, 2) = i & "だよ"
Next
MsgBox WorksheetFunction.VLookup(7, a, 2)
End Sub >>156
実際はシャンシャン総会なので一括賛成で終わると思ってます
書面7割、ネット3割を想定
ネットはGoogle Formsを使うので、定義として全項目スキップできるようにしてあって
概ね賛成だけど議案4だけ個別回答
その場合は表決者がつじつま合わせないとその議案はそっち優先にしますよとしています >>158
マジか！！！ と思って試してみたらマジだったｗ
んで個人的によく使うmin,max,match,countifを試してみたら
min,maxはできたけどmatch,countifはダメだった。
要素の中身を取り出す系の関数はいける感じかな？
ひとつ理解が深まった気がするよ。ありがとう。 Subtotalって集計キーを２つ指定したいときはどうやるの？ そいやあるのかね、言語としては古くてしょうもないが VBAエキスパートという民間資格
MOS ビジネス統計すぺしゃりすと IC3 あどび認定ぷろふぇっしょなる Microsoft認定資格 App Development with Swift IT Specialist えｔｃ
https://www.odyssey-com.co.jp/index.html イミディエイトウィンドウでは実行できないステートメントはどれか。次の中から1つ選びなさい。
1.?Range("A5").Value
2.MsgBox "Hello!"
3.Dim x As Integer
4.For i = 1 To 10:total = total + i:Next i:Print total
３番かな？ 次のような2つのプロシージャを同一の標準モジュール上に作成した。「M_Proc」プロシージャの実行結果はどうなるか。次の中から正しいものを1つ選びなさい。
Sub M_Proc ()
Dim a As Long
a = F_Proc(3)
MsgBox a
End Sub
Function F_Proc(Optional x As Long = 5) As Long
F_Proc = x * 2
End Function
---
①6
②9
③10
④実行時エラーが発生する Optional x As Long = 5
って何？この引数。 次のプロシージャはセルA1の値に応じてメッセージを表示するものである。セルA1の値が3未満だったら「A」と表示させたい。このとき、【 1 】に入る適切な命令を解答欄に入力しなさい。
Sub Sample()
Select Case Range("A1").Value
Case 【 1 】
MsgBox "A"
Case 5
MsgBox "B"
Case 7 To 9
MsgBox "C"
Case Else
MsgBox "該当なし"
End Select
End Sub >>169
省略引数でしょ
って言うか vba optional でググれ vba解説してるサイト見たら皆プロシージャの最後に
set obj = nothing '後始末
ってやってるけどあれ循環参照以外で意味ある？
やらずにadodbとかseleniumで10万回以上実行してるけど何の問題も起こらない >>173
意味ない
循環参照でもそれで解決するならやらなくても解決する .cels(1,1) = 〇〇
セル指定で行や列の連番を簡単に入力する方法ってありますか？
以下のようにオートフィルのような感じでコードを作成したいです。
.cels(1,2) = 〇〇
.cels(1,3) = 〇〇
.cels(1,4) = 〇〇 >>174
これからも書かない事にしときます
>>175
こういう事？
Sub a()
Dim i
For i = 2 To 10
Cells(i, 1) = i
Next
End Sub >>175
連続するセルに違う内容を書き込みたいんなら配列を使う手もある
Range("B1:D1") = Array("あああ","いいい","ううう") >>175
celsの用語が間違っているのと、
○○を "○○" のように書けば簡単に入力できますよ >>175
.celLs(1,1) = 〇〇 をワークシートに貼り付けて
フィルハンドルを下にドラッグしたら簡単ですよ >>173
通常のローカル変数に対しては、意味がない
本当にプロシージャの最後で通常のローカル変数なら、循環参照でも意味はない
書くのが良い作法とされる流派はあるが、それどこの解説ページだ？
いまどきは、皆って言うほど書く人はいないイメージだがな
>>174
通常のローカル変数じゃなければ意味はあるかもしれんぞ >>183
> 通常のローカル変数じゃなければ意味はあるかもしれんぞ
どんなケース？ >>184
通常のローカル変数じゃないんだから
グローバル変数とか、Static変数とかだろ >>183
> >>173
collectionとかに格納したオブジェクト変数なんかはちゃんと開放されてるのか不安にはなるね。 windows10アップーデートしたけど、普通にvbaでIE操作できるね。助かったわ EdgeのIEモードは実質IEが動いてるのでな
いまの所MSも2029年まではIEは裏方で生き長らえる保証してるから安心していいぞ
どうせ6年後もWindowsが存在してればIEの寿命も延長されるだろうよ Windows12の噂もちらほらだからまだまだ消えないだろうや セル内にある数式の"＝"を削除する方法はありますか
テキストとして、”A1-A2”などだけが残るようにしたいのです >>190
Range("A1") = Mid(Range("A1").Formula, 2, 999) ワークシート関数なら
=SUBSTITUTE(FORMULATEXT(A1),"=","",1) >>192
それA1に設定したらA1が「SUBSTITUTE(FORMULATEXT(A1),"=","",1)」にならない？ >>190
どういう風に残したいかによって変わるかと。
対象の関数が入っているセルから関数(=)を消すなら=を空白に置換、
別のセルに書き出したいなら>>192の書いてる方法かと。 どうもです
A1、A2を足し算する場合、＝A1+A2
となりますが、この結果をcsvで保存しているのです
ですから、式の部分が結果の数値になります
毎日、あらかじめよぶんに式を次の行にコピーしておいて使いたいので、式の入っている部分をそこのセルだけ下にドラッグしています
そのままですと、式の結果だけ残って、式が消えてしまって不便なのでイコールを除去して取っておこうと思ったわけです
イコールの追加
ActiveCell.formula ="="&ActiveCell.Value
イコールの削除
ActiveCell.Value =Replace(ActiveCell.Formula,"=","" )
これでいけるだろうかと思ってやっているところであります vba以前の問題というか無知な質問でごめん
転職先で会社からUSBメモリを配布されたから
自宅のPCでマクロ作ってxls形式、xlsm形式の両方で会社のPCに移して使おうとしたら何度やってもアクセシビリティの利用不可？で無限ループのごとくフリーズ
タクスマネージャから強制終了
セキュリティで弾かれてますか？ 自宅で作ったプロシージャをtxtとかで会社メールに送ってそこで新しく作って標準モジュールとかに入れてけば出来る？
忙しすぎて会社で試せてない >>198
分かりません
>>199
分かりません セキュリティの厳しい会社だと、メールや添付ファイルに何らかのプログラムが書いてあると自動的に削除される なんで赤の他人にそんなセキュアな疑問訊ねるかな？社内規定でどう扱えばいいかUSB渡されたとき聞いてなかったのか
勝手なことしてるとまたすぐ転職する羽目に陥るぞ どなたかVBAでのレジストリ操作についてわかる方いたら教えてください。
以下の方法を試しましたが、取れる値と取れない値がありました。
取得したい値の読み取り権限も許可してもうまくいかず。。。
・WScriptのRegRead()メソッド
・api
・bat
色々切り分けたところbatファイルを単体で実行したときには取得できて
VBAからbatファイルを実行すると値が取得できないので
VBAの実行権限に問題があるのではと考えていますが
権限とか関係なしにapiでどこでも取得できるよとか
何かご存知の方いたらコメントお願いします。 連投すみません
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft配下の
値を取得できない状況です >>203
VBAで昇格は無理だからコマンドライン呼び出せ >>205
回答ありがとうございます。
コマンドラインで呼び出すというのは
以下コードのように実行結果を取得する感じですかね。
試してみたところ、実行結果が空白で返ってきたのですが
基本的にはレジストリのどの値も取得できるのでしょうか？
'実行するコマンドを指定
command = "ping 192.168.10.1"
Set wsh = CreateObject("WScript.Shell")
'コマンドを実行
Set execObj = wsh.exec("%ComSpec% /c " & command)
'コマンドの実行結果を取得
commandResult = execObj.stdOut.ReadAll pingの実行結果は返ってきますが
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft" /v "指定の場所"の
結果が返ってこないです。 >>207
コマンドは管理者権限で実行せんとあかんのと違う？ 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" win10とvsとvbaで試してきた
LOCAL_MACHINE
"SOFTWARE¥Microsoft¥Cryptography"
"MachineGuid"
RegGetValueWで読めた 凄いですね・・・
もう一つの方も行けましたか？
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\ 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)), VarPtr(n))
End Sub
↑この感じでSZ型のキーを読み取った >>214
ありがとうございます。
提示していただいたもので実行してみたところ
戻り値が2でシステムエラーコードで確認すると
「システムは、指定されたファイルを見つけることができません。」
となっていました。
となると、こちらの環境的な問題ですかね。。 >>214
無事取得できました！
本当にありがとうございます。
お手数おかけしました。 >>199
>忙しすぎて会社で試せてない
お前はいったい何をやっているのだ？VBAは仕事ではないのか？会社で試すのは仕事ではないのか？
メール開く時間すらないほど忙しい会社なのか？インポートやエクスポートを知らんのか？ 俺は昨日は余計なメール開く時間も惜しいほど忙しいかったな
まあそんな日もある ほどほどに忙しいうちが花と言われたからからね。
暇すぎはストレス溜まるし忙しすぎは思考停止する。 VBAを使ってることは誰にも言わず
その日が期日の業務だけサッと終わらせて
後はゲームなり昼寝なりしてるけどストレスフリーよ
メールチェックとかはくだらん定例ミーティングの裏でやる 「暇すぎはストレス溜まる」
これアホちゃう？
いままでの人生でそんな思考になったことは一度もない。
暇ならそれに感謝するだけ。
嬉しくてしかたがない。
人生にはやりたいこと楽しいことがたくさんあるんだから
それに暇な時間をそそぐだけでいい。
忙しいのは嫌い。
なぜ貴重な自分の時間をやりたくないことに使わなきゃいけないの。 君にもそのうちわかるよ わからなかったらそこまでだったってこと 社会に出たことない引きこもりの思考またはよほど待遇の良い会社にいるのかどっちかだな。
暇すぎってことは仕事を見つけなければならないんだよ。
他の人の仕事手伝うとか。 経営者じゃなけりゃ
同じ時間で給料同じなんだから
ヒマ(楽)ほどいいのは決まってるじゃん。
アルツハイマーでもこれくらい分かる。 「暇」と「楽」が同じと思ってる時点で精神が子供だな
いや実際未成年なのかもしれないけど 暇だー ←まともな神経なら上席に相談するでしょ？
例「係長、今、自分の仕事が終わって手が空いたのですが、この後何かお手伝いする事ありますか？」
まあアルバイト止まりの未成年君には分からないか指示待ちだもんね。 Sub testest()
Dim z0 As LongLong
z0 = 356 * 100
End Sub
「オーバーフローしました」になるんだが >>228
すごい洗脳的な思考だな
まぁ立派なポチになってくれ >>229
それVBAのバグに近い仕様
定数は内部で勝手にInteger型に変換されるからすぐにオーバーフローする
もっとわかりやすい例だと右辺が 32767 + 1 でもエラーになる
対策としては全部の定数を先に変数に入れておくなどいくつかある >>229
数字の後ろに型宣言文字の ^ を付けるといい >>230
あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。
社会に出ればこんなの当たり前だから。
人よりも仕事は早くこなして次のタスクを行う。
そうやって「評価」というものを受け取れるんだよ。 相手しない方が良いよ。
何せ社会を知らない奴なんだから。 >>234
自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。
仕事は自分で見つけるもんやで？
そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん 本当に社会知らないんだな？
>>237
自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」
て言われるのが社会なんだよ。
良く覚えとけよ。 >>216
今日になって気付いた
戻り値は4バイト整数だったごめん… >>238
世渡り上手で仕事せずともいられるって人もいるけどな
前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、
こういう漫画みたいな人いるんだなーと思った
レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか すげえww罪悪感のカケラもないその神経を見習いたいわ。
まあ、環境にもよるんだろうね。
自分の職場はみなクッソ真面目の堅物ばかり。 そんな人がこんなスレ訪問するはず無いだろ そんなヒマあったらサボってる ヒマがあったらサボってる？
普通に考えればサボっているからヒマになるのでは？ せめてヒマの意味調べようよ 意味も知らずに話ししてんのか そりゃあ、話し掛けられた相手も困惑することだろうに 逆に若い方が間違った日本語を平気で使ってるよ
勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね いや、最近の若いのは分別しっかりしているでしょ。
年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？ 老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる 政治家の老害の方が酷いから社内で経験のある定年前のおっさん程度なら気にならんよ 若者はとか年寄りはという括りで決めてしまうことに何の疑問も持たないのが不思議でな
解ってて話しているならいいけど本気で言ってそう 若者だろうが年寄りだろうが関係なくね？
若者でもダメなヤツはダメだし年寄りでもめっちゃリスペクトできる人もいるしな。 普段何を見て育ってきたかが違いすぎて関係ないなんてことはないと思うなあ 周りにダメな奴がいてダメでない奴もいるとして
その中で自分がダメな奴と一緒になるのか、ダメにならない様に努力するのかが重要になってくる
それと明らかに攻撃してくる相手なら敵と認識して反撃もやむをえない 悪かった
年寄りで１番タチ悪いクセは、大人しいタイプで反抗してこない若者をいじめるクセがあるのは何回も見ている。
それはダメだわな。 ここは>>1がじぶんのために立てたスレッドだが、彼は仕事が出来ないのがバレてクビに成ったのか？
丸々一ヶ月音信不通だが 本を一所懸命に読んでる真っ最中なのか？ >>256
与党が少数意見を無視して増税してきたのは何回も見ている
見ているだけだから問題ないのかな？ 985 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 11:47:07.68 ID:mBQ16TA8r [9/9]
はい建てた
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
996 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b01-hj3w)[sage] 投稿日：2023/01/28(土) 12:09:25.98 ID:NqcfPhRT0 [5/6]
To: 各位
無能の働き者がワッチョイ無しで次スレ立てちまったんだがどうする？
ワッチョイありで立て直す？
997 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 12:10:22.95 ID:XR4zA44Nr [7/8]
>>996
俺のAIが自動的に削除してたわw =if(isnumber(match(b1,a5:a31,0)),"ok","bad")
これをVBAで実現するにはどうすればいいか教えて欲しいです >>265
その式で希望通りの結果ならそのままのほうがいいよ worksheetfunctionで済むならその方がいいよ
最終的に実現したい方法を教えてくれるか
それとも単純にvbaでどうなるか知りたいかならそういってもらえれば ChatGPTへ条件を指定するの難しい・・・
日本語が下手で嫌になる
分かりやすいサイトとかyoutubeチャンネルとかある？ >>269
日本語が下手ならchatgptに推敲してもらえばいい
ってかそもそもChatGPTはそもそもコード生成向いていない
ChatGPTのエンジンはgpt-3
本当にコード生成に向いているエンジンはcodex ChatGptが作ったコード、なかなかいい感じだが 使いたければ使っていればいい、よそのスレで宣伝する必要なくね ここは1000行ったらもうそれっきりのスレだから 雑談してりゃいいんだ VBAコードをカラー印刷する方法はありますか？
パソコンで見ると目が疲れるし、気付きにくいこともあるので紙で見たいのです。 >>275
たくさん貼っていただきありがとうございます。
2番目のツールはHTML化で変換出来なかったんですよね。
最後のアドインのだけカラーで出来るようなのでこちらを使ってみます。 ChatGPTにVBAでこんな感じに出来ませんか？と質問するとしっかりとしたコードを書いてくれる Chatgptが普及すれば初級者とか関係なく誰でも高度な事ができるようになるよね。
もはや「Excelできまーす！高度なコード書けまーす！」が通用しなくなる時代が来つつあるな。 このスレのスレ立て人ディスってんのか？
Excelできます枠で中途入社しときながら、まるきしわからんちんでExcel VBAスレに泣き付いて
質問をキッカケに主人公にでも成ったかのような勘違いしてこの無駄スレ立ててしまった伝説のあいつを？ 零細企業のVBAすら書けない無能には間違いがあってもわからんだろうがな これからはリストラが大量に出るだろうね
エクセルの先生()からプログラマー()までPCとにらめっこする仕事は全部ChatGPTで済む虚業ってバレたんだから そう思い込むことで、カキコ本人にはどんなメリットがあるんだ？
個人の感想でしかないものにすがるしか、自我を保てないンか？
そんなメンタルならExcel使う事を辞めた方がいいぞ？
そんな得体の知れないものに頼らざるを得ない企業も長続きはしなくなるだろ
会議の席にAI同席させるンか？ AIに任せるようになった企業が長続きしないというのはそちらの感想だよね
会議にAIも参加させられない企業と会議にAIが参加できる企業のどちらに柔軟性があるかは明白 長年いろんな企業を見てきた経験からだ 個人の感想じゃねえ
マンパワーの重要性を認識できない上の方が居たら、大抵足許から崩れてく
会議の席でAIが「できます」っつったら任せるのか？それでコケた場合誰が責任取るんだ？
絵空事夢見て妄想に浸るのは勝手だが、企業もいきもの 維持し続けるための道具としてなら
使いたきゃ使えばいいが、病んだ時のリカバリーにはどうしても人の手は必要（当面は）
例えば、悪天候で電車止まった、架線が切れたようだ 四六時中稼働できる修理ロボットの出番だ！ なんて時代はまだまだ先
必死でそういう時代が来るよう努力し続けるのは否定しないが、どうせそうなるんだから今から仕事放棄 は、ただのあほう 理性的に考えれば今の時代は暗黒だから冷凍人間にでもなって輝かしい未来に解凍してもらうのが正解 今置き換えられるのはPCとにらめっこする仕事って限定してるんだが
勝手に読み替えられても困る これだけは言える
そこらの並のPC教室や素人に毛が生えたインストラクター(笑)は間違いなく淘汰される。 こちらでよろしいでしょうか。すみません。
エクセルで、
「ＳＵＭ関数」かつ「０が表示」のセルを、
選択する事は可能でしょうか。 [ホーム]タブにある「検索と選択」で、検索をクリックして、検索する文字列に SUM ではダメなのか？
[ファイル]の[オプション]、[詳細設定]で □ ゼロ値のセルにゼロを表示する(Z)のチェックに限らず
=SUM( のセルを次々選択してくれるが？ "かつ" の条件を満たさないとどうしてもイヤ！なのか？
Sheetの至る所に＝SUM( がありまくりで絞り込みたいとか？ 「0が表示」という日本語も変だけど
[オプション]での設定はBook全部に影響したと思うのだが >>285
経験なんて個人の感想の寄せ集めだぞ
同レベルの概念とわかってない時点で論外、やり直し >>289
フィルタで0を指定してからsumで検索すれば行けそう >>290様
仕事で、料理の数の合計を出しています。料理の数の入力が
ないセルは「空白」ですから、選択オプションで「空白セル」を
チェックし、「空白のセル（列）」をすべて非表示にできました。
最後は、自動で「ＳＵＭ関数」かつ「（合計が）０の表示」のセルを
選択し、セル（列）を非表示にしたいのです。手動でやれよって話
かもしれませんが、マクロで自動化ってできるものなのでしょうか。 >>292様
>>フィルタで0を指定してからsumで検索すれば行けそう
確認しました。列にならできると思います。しかし、
行方向のセルにフィルタをかける事はできませんでした。
行の一定の範囲のセルを選択したいです。行にフィルタを
かける事はできませんでした。行と列を入れ替えて、列に
フィルタをかけ、最後に行と列を入れ替えたらよいですか。 >>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なら
その列も非表示になる。
後はどのセルに関数が入っているかわからんから
そこらへんは調整してくれ。 セルを非表示 という書き方が戸惑う元だけど
>>290 の二行目に書いた Sheet上の0の値を[0]表示させない方法ではダメなのか？
SUMの結果が0のケースでも、0とは表示されず空白になるんだが？
セルの書式設定で ;;; にすることでセルの非表示ということらしいが、結果は変わるのか？
手元のExcelで試しているけど、どういう結果が欲しいのか分からんから戸惑ってる
わざわざ空白セルも非表示にする必要がさっぱりわからん 背景色とかが絡んで来る？ 印刷時？ >>295様
これが具体的なＶＢＡコードですね！ありがとうございます。
説明不足でややこしくてすみません。
とりあえず、本やネットを見ながらコードを参考にし、実践
してみようと思います。皆様ありがとうございました。 >>296様
おっしゃる通りで、表示させない方法で空白になりました。;;を使っても０が表示されず、
空白になります。この状態で、行の一定の範囲を選択して、選択オプションで「空白セル」
にチェックを入れます。しかし、「ＳＵＭ関数かつ空白」が選択されず、列を非表示に
できません。ＳＵＭ関数があると空白と認識されないようです。
>>わざわざ空白セルも非表示にする必要がさっぱりわからん 印刷時？
おっしゃる通りです。空白のセル（列）を非表示にし、印刷しないためです。 聞く方も答える方も馬鹿で頭が痛くなる
このスレを立てた奴の頭のレベルの程度のせいか？ >>299みたいなのが賢いムーブなんですね、参考になります 送られてきたEXCELファイルの特定のセルにある文字列や数値を別のブックにある表シート(特定のセル)に反映させてデータを自動集計したい。
この場合どのようなコードが必要ですか？ >>299
なぜ馬鹿の質問に馬鹿が答えてるのを見るとお前の頭が痛くなるのか因果関係を説明せよ
>>301
全然わからないならあきらめるか、初心者向けの本でも読んでもう少し自力でできるようになってからだな >>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 chatGPTの亜流がどんどんでてきたな
https://ronpagpt.jp/ >>303 AIはすごいね AIはさすがだよ AIにその回答を導き出させた>>303はもっとすごい >>305
要件を満たしていないだろ
お前、このスレを立てた零細企業のバカだろ いや、AIはすごいんだって だってたちどころに回答するんだぜ？
どんな難問投げ掛けられたって、おちゃのこさいさいで即座にだよ？すごいじゃないか
やっぱAIには敵わないね でもそのAIを容易に使いこなせる>>303は、ほんとすごいんだよ
こかれらもこまったことがおきたらぜんぶ>>303にそうだんすればいいよ ぜんぶアッ！といまうだよ
>>303そこがかみだよだってAIあつやれるんだのもきとっすいごおきゅりうょうもっらてんるだろ >>296様 皆様
やっと「ＳＵＭ関数かつ０が表示」を選択する事が
できました!!!これでムダな列を自動的に非表示にできます。
①一定の範囲のセルを選択 ②検索で「０」の値を検索
③検索結果をクリック ④ctrl+Aですべてを選択
大変お騒がせ致しました。本当にありがとうございました。 やりたいことが分かってから意見書くのも、なんか憚られるが
それ、横方向に並べ替えすれば合計欄0のだけ端っこにまとまるから、それで一気に列の非表示すればよくね？
元データが料理の種別とかで固定だから並べ替えなんか「成りません！」てなら別だけど
それでも何かを基準に左に詰めたりできそうな気がするんだが
https://sakusaku-office.com/excel/post-9111/
https://webpt.jp/blog/excel/excel-across-sort/ 馬鹿が考える方法は馬鹿な頭から出てくる馬鹿な方法だからまともに相手にするのが間違い
馬鹿が質問すると荒れるから迷惑 馬鹿はエントロピーが大きい状態
エントロピー増大の法則 コードの保存はどうしている？
ChatGPTで色々と変更しながら書いてもらっているけど、過去のも残しておきたいが
ぐちゃぐちゃになっている。 >>318
毎回最初から最後まで書いてもらえばいい
もう保存とかアホらしくなってきた Excel VBAにはない
Access VBAなら専用の関数がある >>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関数で使う手も。 >>322
どこまでの値をカバーするか、どういうデータか、によっては、既に書かれているとおりワークシート関数でも事足りるよ
なお本当に1を1stにするだけだったらワークシート関数のSUBSTITUTE使えばいい 1 → 1st
11 → 1st1st
101 → 1st01st スクショを貼り付けしてトリミングするまでのマクロ使ってるんですが
トリミングした不要な部分を削除
を追加する事ってできますか？ >>329
毎回、図のトリミング部分を削除するのが手間でマクロでやってしまいたい ［Win］+［Shift］+［S］キー とかでスクショ撮る前に切り取れば？
>トリミングした不要な部分を削除を追加する というのがよく分からんが
うっかりトリミングしたけど元に戻したいとか？
https://itojisan.xyz/settings/25094/ キャプチャの再考も必要かも スクショするコードと下のコード繋げて貼り付けてるんだけどその後に図のトリミング部分を削除を毎回手動でやってるんだけど
その手間を無くせないかなと思って
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 あなたの言うトリミングとは何なのか
トリミング＝不要な部分の削除ではないのか
というところから、どうぞ >>333
図の圧縮のトリミングをvbaでやりたいけどコードが分からないんだろう いやだから図のトリミング部分を削除したいと言うてるわけです いやだからわざわざマクロでやる必要ないでしょ？
コード書いてるより手動でやった方が早いのでは？ 頻度が多いのよ
図の形式からいちいち削除する手間を無くして
貼ったと同時に不要なトリム部分を削除したい
ネットで見てもなかなか載ってない >>332
いやお前ら、
図の圧縮のトリミングをマクロでやる方法があるならそれを教えてあげなよ
俺はわからなかった。マクロの記録にもない
何パターンか
・図の圧縮をキーマクロにする
個人的には全くオススメしない
https://yaromai.jp/shape-compression/
・別ソフトを使う
pictcutterとか
ドラッグアンドドロップで処理できる
マクロでどうこうするより早い
・別アプリと連携する
imagemagickがvbaと連携できる
かなりしんどいけど、imagemagickは有名なソフトでかなり色々できる
急がないならかなりお勧め。知っていれば画像に関することはほぼなんでもできるようになる
https://qiita.com/tabizou/items/5789ae88abbb063ea0bb こんな感じ？
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 >>338
ありがとう、会社PCだからソフトやアプリを簡単に申請して入れられないんだ
>>339
まじすげぇです、
完全に求めていた事が出来た
本当に心から感謝
マジでありがとう いや、マジ凄い
素人ながら結構ネットで検索してたのに
実現は無理なんかなと諦めてた
本当に本当にありがとう
すげえ サエコ先生？アシスタントだっけ？
あれもリストラされたよね 【本当にあった怖い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
↑？？？？？？？？？ set wsh = Thisworkbook.WorkSheets(FDigit)
でええがな いや待て
ひょっとすると
Function Lsheetは
実は別クラスに書いてあって
インターフェースを介在して
取ってきているのかもしれないぞ。
そしたら場合によっては
そんな記載になることも
ないとは言い切れない。 いやどれも同じ標準モジュール
一覧表シートに載ってる表(A列がブックのパス、B列がシート名みたいな)の値を取るだけだったから
Set Wbo = WorkBooks.Open( SPath( SOutput) )
Set Wsh = Wbo.WorkSheets( SName( SOutput) )
みたいな記述もある(SpathはLSheetのA列から取ってくる)
コメント0でなんでこんな記述してるのかも定数や配列にしてないのかも分からん 変数名にwshは感心しない
斜め読みだと外部スクリプトでも呼んでるのかと勘違いする >>352
それはかなり思う。いつも少しひっかかる 古き良きハンガリアン風に
WB_[ブックの役割名]
WS_[シートの役割名]
とかかな。 さすがにシートの変数名は変えてあるわ
定数で済むものをシートからの取得にしたり
シートからの取得方法が関数の多重呼び出しだったり
呼び出し先の関数ではシート名直打ちだったり
関数が配列みたいな名前だったり
呼び出しの引数がユーザー定義型だったりで
可読性最悪なクソコードなんだよ >>357
今後マクロを読む引き継ぎ先に向けてのシートだろ？
マクロ内での定数宣言で問題ないのに
わざわざシートから参照する方式で難解にする意味が分からん
百歩譲ってそこを許すとしても
一覧表シートの指定はLSheet関数じゃなくて
SPath、SName内でWorksheets(シート名定数)だろ 変数を日本語（漢字）で宣言してるわ…
いけないのはわかってるけどメンテナンスする時に楽だから…
Dim 列 As Range
Dim 行 As Range >>359
ちょっと待て
列や行をの型がRange？
どういう状況なんだ？ >>360
表かなんかの取得で列や行の一部しか入れないんでねーの
行 = Range(A1:C1)みたいな >>358
値の取得は Range("設定!名前")
ファイル名やら出力先シート名とかね
ダイアログの代わりみたいなもんか なるほど
したっけ変数名は「行取得セル」とかにした方がいいだろな >>362
結局なんでマクロ上に定数で書くんじゃなくシートから持ってきてるんだよ >>364
設定ダイアログの代わりにワークシートを使っています。
これでいい？ >>366
なら、セルひとつで済むんじゃないの？
対象セルに入力規制掛けてリスト化してしまえば。 >>367
そうだね
ほとんどは1つのセルにそれぞれ名前を付けてるね
まあオレがそうしてるだけでゴリ押ししてるわけじゃないからな
無駄だ！と言われればそうですねとしか答えられない そうですねと答えられたら「そうですか？」と聞き返すしかない 問題は名前（文字列）でシートを識別する方式にある
プロパティのところでクラス名やモジュール名みたいにワークシートのオブジェクト名を自由に編集できる
これはシートに付与した名前とは別物で、シート名がどう変わろうと常にそのシートを示す
with worksheet("hoge")
ではなく、オブジェクト名で
with HogeSheet
のように記述できるようになる
名前がHageに変えられたり毛髪に問題が起きても常にHogeSheetにアクセスできる 左にあるのから123って指定できたやろ名前関係なく マクロで記録して
再生すると 何だよ
エラーになるのは 図形に多い マクロだけのファイルでもデバッグ効くんだっけ？
デバッグはスルーするけど実行時にエラー起こすんなら原因は別か
「何だよ」書かれても状況書かないなら単なる愚痴ボヤキ VBAで別のブックを開いて（或いは別のブックから）何か操作をしてそのブックを閉じるという操作をする時に
必ずdimやsetでオブジェクトやパスを格納しなければならないという事はないでしょうか？ ボタンが貼ってあるセルを選択･値をクリップボードへコピーするコードはどう書けばいいでしょうか？
Bingチャットさんの作ってくれたコードはどれもうまく動きませんでした >>377
bingチャットさんのコードはどんなの？ ボタンが貼ってあるセル ←そんなものは無い
両者は別物だし、セルを覆い隠すようにボタンが貼られてたとして、そのセルに何の値があるというのか
矢印キーで移動してそのセルを選択した時に、数式バーに数式とかが表示されるならその値だし
名前ボックスにセル位置以外のものが表示されたら、その名前を調べればいいし
マクロの記録で、そのセルをコピー だけでコード書かれるけど
Sub Macro1()
Range("A1").Select
Selection.Copy
End Sub こんなもの書いてどうしたいんだか Winキー + V でクリップボードの中身も見れるけどどうしたいんだか Sub CopyButtonCell()
ActiveSheet.Buttons(Application.Caller).Select
Selection.Copy
End Sub
>>377 みたいな感じです
>>380 エクセルのシートから他アプリへたくさん値コピーしなければならないような時
Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
構造的にムリならいいです と思ったけど
＞エクセルのシートから他アプリへたくさん値コピーしなければならないような時
＞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 教えて下さい
m1 MacBook Air でvbaやってるんですが
dim wdapp as word.application
set wdapp = new word.application ←
矢印の部分でオートメーションエラーが出るんですが
原因として何が考えられるでしょうか？
wordの参照設定はしてあります >>384
新規プロジェクトでその2行だけのコードを動かしたらどうなる？ Set wdApp = CreateObject("Word.Application")
or
Set wdApp = GetObject(,"Word.Application")
do not work either. >>385
wordアプリケーションが開いた後
同じくオートメーションエラーが出ました
エラーコードでググったらodbc32ビットと64ビット
がうんちゃらかんちゃらと出てきてit弱者の自分には
よくわかりませんがもう少し調べてみます
エラーコードは-2147467259(80004005)です >>383 なぜかcancel行はエラーが出るけど
カーソル移動で次々値がコピーされるようになりました
かなり思ってたのと近い事ができるようになったのでどうもありがとうございます >>384
「教えて」「助けて」系の例の法則と思ったけど、
これは違うみたいね
インテル系Macでもダメだった
Wordは立ち上がるのだがオートメーションエラーで止まる >>384
Windowsだとエラーは出ないんで俺にはわからん 0x80004005エラーは要因が沢山あって詳細を書いてくれないと絞れないんだよ
システムにWordプロセスが残っている場合
異なるアーキテクチャを呼び出している場合
32bitのodbcと連携してて64bit環境で実行してる場合等
Officeのバージョンとか判ってる情報を全部載せてくれ みんなありがとう
明日アッポーのサポートが助けてくれるらしい
多分解決すると思う 土日祝関係なくMS製品の尻拭いまでやってくれるなんて優秀だけどなんか泣けるよね with ステートメントは指定したオブジェクトに対して一連の操作を行うものだから
例えていうとアクティブオブジェクトに対してのみオブジェクト名を省略して行う事ができるという事でしょうか？ 実際にコード書いてみればわかるような事を質問するやつってこの手の作業に向いてないと思うんだよね
それに書いて動かしてこうなったんですが？（実際にコードつける）なら回答する側も具体的に回答してくれると思うんだが 最近VBAもedge任せだわ
たまに違うってのもあるけど楽で仕方ない
このコードの共通する部分を関数にしてとか
イエス・ノーできるポップアップ作ってとか（これはいちいち覚えていないので） >>397
自分用語に例える意味がわからない
コードを書くときにwithで指定したオブジェクトの記述を省略できる
内部的にはオブジェクトへの参照回数が減るのでスピードアップする
そんだけ >>399
・コード全部投げてリファクタリングして
・人のコード全部投げてコメントつけて
めちゃくちゃ楽だよな
今までのアホみたいな作業はほぼなくなったわ >>401
edgeにAIがあってコードを勝手に考えてくれるのですか？ Ruby,Python, 今度は Edge もNG追加だな Edgeさんは短いコード貼るとどういう動作するコードなのか教えてくれるし
やっぱり可能性を感じる >>405
すれ違いの書き込みを誘導するのって宣伝か荒らしだろ
糞して寝ろ >>402
edgeというかbingな。あれは無料でやや精度が悪い
俺は有料でchatGPT4
ほとんど口語でテキトーに指示出しても良い
下手な新入社員の1兆倍使える
https://i.imgur.com/UxjOSS8.png
https://i.imgur.com/5pPwWWD.png >>411
VBAしか出来ない保守的なお年寄りの多さが良くわかるな
まぁ頑張って自力で全部書いてくれ >>411
まぁ、頑張って君は一生懸命コードを書いてくれたまえ
そのうち総務のおばはんが「これ間違っちゃったから別のコード書いて（笑）」ってアホみたいな入力でvba自動生成しますんで vbaしか使えない連中はマジでweb系覚えないと詰むぞ
saasだのなんだのシステムどんどん覚えてもいい
お勧めはGASのwebアプリケーション。あれは本当に強い。当分残る そういうのはそっちのスレでやれば良かろう
スレタイ読めないのかね そもそもVBAスレにVBAしか使えない人がいても問題なくね？
俺は他言語の話は別のスレで書いてるから 違うでしょ？VBAしか使えないんじゃなくて、Excelしか使えないんでしょ？
VBAだけでExcelの全てを動かしてる奴なんて今時はいないはず。 EXCELしか使えない初心者がVBAの質問するのはありだろ >>414
そう言われつつもずーっとEXCEL VBAは消えていないんだよなぁ
むしろ手軽に組めてその気になれば事務のおばちゃんでも組めるくらいだから
Web系の知識が要らないこともある意味利点と言える。
もちろん、プログラマーとしてやってくならWeb系の知識があったに越したことはないけど
そうなったらフロントサイドではJava Script、サーバーサイドではC#とか全然別の言語使うから
ここで話していてもきりがなくなるよなぁ。 >>409
DateSerialは存在しない日付を入れてもエラーにならず、
意図しない日付を返す可能性があるのでその辺を考慮しとかないといけないが、
このコードにはそのチェックが入ってないので正常値でのテストしかしてないとそのリスクに気づけない
将来的にはコード自体に改良が入るか、コードの説明時に補足が入ってくるんだろうが、
現状としてはそれなりにコードが読める人以外が使うとトラブりそう VBA消える消える詐欺
10年前も20年前も同じこと聞いた
10年後も20年後も同じこと言ってそう comオバケのExcelをまるごと作り直す気がないとVBAでいいよねとなる
web版は頑張っているけど所詮はブラウザゲー 「A<Bの時、Bを赤文字にする」という条件付き書式設定を列ごとに行うのはVBAでしか出来ませんか？
「A1<B1」の条件をコピーしても行番号が自動更新する方法が見つからず質問しました。 最初条件付き書式に仕様がよくわからず戸惑ってたの思い出した >>424
それを踏まえてExcel無くなる詐欺もちらほら。 無くなる理由でMSからもっといいのでたとか
社内でExcelの使用禁止とかなったら
なくなるかもしれんが……ないだろうね >427
まず最初に条件付き書式で赤文字にしたい範囲（例えばB1：B200）を選択
[条件付き書式]-[新しいルール] →数式を使用して、、、、を選択し、次の数式を、、の枠内に
=$B1>$A1 その下の[書式]でフォント色を赤 ChatGPT搭載されようとしてんのになくなるわけねえだろｗ MSじきじきに調教したchatGPTとVbaのコラボ…
すごいイルカが誕生しそうだなw >>433
ChatGPTって断定するような言い方で出力するけど
内容はそのままでは使えない出鱈目だよ
有料なら使えるのかも知らんが 人に聞かないと何もできない頭の弱い人にはそうかもな ChatGPTも判断根拠とか出典を明示してくれれば使い物になるんだけどなぁ。
一次ソースを確認できない情報は信用できない。 まず上級者はchatgpt等のツールは使わない。
だって上級者はさらに良いコードを書けるから。 エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルA1に入る文字を変えたいです
https://jsfiddle.net/9h6Lfju7/
あと、できればVBA使わずに実現したいんですけど方法はありますか？ >>440
使う。
使った方が確実に早い
使用頻度に低いコードもノータイムで書いてくれる >>441
Excelのチェックボックスにチェックを入れたら、特定のセルに文字を入力する方法は、次の手順に従って実現できます。
チェックボックスを挿入する："開発"タブ -> "コントロール"グループ -> "挿入" -> "チェックボックス"を選択して、ワークシート上にチェックボックスを挿入します。
チェックボックスにリンクするセルを設定する：チェックボックスを右クリックし、「コントロールの書式設定」を選択します。ダイアログボックスで「コントロール」タブを選択し、「リンク先セル」の欄に、チェックボックスに対応するセルのアドレスを入力します。
IF関数を使って、チェックボックスがチェックされた場合にセルに文字を入力する式を作成する：例えば、チェックボックスがA1にリンクされている場合、次のような式をセルに入力します。
graphql
Copy code
=IF(A1=TRUE, "チェックされました", "")
上記の式では、A1がTRUE(チェックが入っている)の場合、「チェックされました」という文字列をセルに入力します。A1がFALSE(チェックが外れている)の場合は、空白をセルに入力します。
4. チェックボックスにチェックを入れたり外したりして、セルに文字が入力されることを確認する。
以上の手順で、VBAを使わずにチェックボックスにチェックを入れたら、特定のセルに文字を入力することができます。 ChatGPTの内部構造をよく知らんで振り回されてるやつが多いけど、質問文を文節に分解して、それぞれでぐぐってコピペしてまとめるっていう単純作業を自動化してるだけだぞ
論文をちゃんと読めば書いてあるし、開発サイドでは誰も人口知能だなんて言ってない
だから検索しても出てこない情報は含まれないし、スコアに従って切り貼りしてるだけだから文章でもコードでも前半と後半がちぐはぐな回答が出てくることがある
それをわかった上で利用すれば、退屈な作業を確実に効率化できるんだけどね >>444
＞検索しても出てこない情報は含まれない
人名は割と容赦なく嘘が出てくるぞ
本名で聞いてみたら1970年生まれのプロレスラー＋転職してアニメーターになったわ
もちろんそんな人物は実在しない 確かにchatgptは早いけど、VBA上級者のような丁寧かつ分かりやすく書けるスキルには及ばないでしょ。 >>445
Googleでもネット上に存在しないはずの人名とか単語で検索すると無関係な情報を適当に出してくる
そういう関連性の低い検索結果でもChatGPTは容赦なくコピペする仕組みになってる >>446
書けるよ
コメント大量に入れてって言えば入れてくれるし
可能な限りまとめてもらったり、冗長でもいいから分かりやすく書いてって言ったらその通り出力してくれる
あとは知らなかった関数なんかも書いてくれる事がある
上級者でも答え合わせ的な意味で使った方がいい
絶対に腕があがる 進化が恐ろしく速くなるからとにかく否定から入る硬直した頭ではダメな気がする
漠然とw 5chはジジババ老害の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。 他人にやらせるのがコミュ力と思い込んだからそれ以外もやらないだろ。 >>443
こんな簡単な質問で重大な間違いをしてるのに気付けるのは人だけか？ 間違いを指摘するAIが必要じゃないのか？
A1にはその数式を入れるのだから、チェックボックスのリンク先はA1以外にしなきゃダメだろ 悲しいけど歳を重ねるほど才能にあふれた者と差は開いていく >>459
質問者が「セルA1に入る文字を変えたい」と訊ねてる回答としては致命的と云ってる
こんなシンプルな質問だからすぐに間違いに気付けると思うが、より複雑な質問なら
当該セルやテーブルや名前付け範囲やらの対象を雑に扱ってたら、質問者が混乱に陥る
得意げに貼り付ける奴が間違いに気付くでも無くキチンと修正するでも無くたれ流しなのも呆れるしかない ていうか、AIの話になるんだったらA1以外のセルにしておいたらよかったですね >>468
最後の一文は全く同意だ
ChatGPTでの質問は質問者本人でもできる
それを代わりにやって得意げに間違えたままの回答を貼る
AI未満のことしかできないんだもんな A1の値(文字)がチェックボックスの状態によってTRUEとFALSEに変わる
A1の値をIF関数で判定するだけの処理なのでVBAを使うような内容ではないな フォームコントロール(チェックボックス)とExcel関数(IF関数)
https://i.imgur.com/RK5Jbt1.png ChatGPT使ったらどんなサイトよりもわかりやすいプログラムを一瞬で作ってくれる ChatGPTは単純で短いコードしか書けない
ちょっと長くなると動かないどころかコンパイルすらできなくなる そもそもchatGPTはプログラム向けじゃないぞ
codex系譜のcopilotが最強
あれは関数名書くだけで内部処理全部書いてくれる 楽しみだな。ベテランにはベテランなりの使い方するんだろうな GetOpenFilenameで複数画像のファイル選択は出来る？ >>483
MultiSelect := True 挿入で複数画像を選択したいんだけど、やり方が分かりませんでした。
ChatGPTに聞いたらwindows APIがうんたらかんたら書いてたけど上手くいかずです。 chatgptだってそこまであてにならない良い事例だね 無視かよ。
と言うか逆にWin32Apiでどうするのか知りたいわ。 ChatGPT って言うけどさ、
あれ危なくて4超える開発止めてるらしいね
頼りすぎるとターミネーターの世界になるってね 翻訳サイトから情報を取得しているという話すら忘れたころに話題になる不自然さ。 >>490
「意味深」は死語になったよな。
書き言葉でも話し言葉でも使われなくなった。 新人類世代は、1950年代後半から1960年代前半や
1950年代後半から1965年（昭和40年）4月1日までに生まれた世代を指す場合が多かった
現在新人類を明確に定義しているものとしてマーケティング上の世代区分があり、
1961年（昭和36年）4月2日から1971年（昭和46年）4月1日生まれまでと定義されることが多い ChatGPTが使えないと言ってるやつって柔軟性なさそう スレを立てた零細企業の何が本当で何が間違いかわからないような馬鹿には使えるように見えるのだろう >>458の指摘は正しいが
そこで全否定して終わるか使えるところを探せるかが使えるやつと使えないやつの差だと思う 152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8
零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります 今のChatGPTは高機能な検索エンジンでしかない
一般的に検索エンジンなんて使える場面は限られてる
道具の限界をわかった上で使いこなせるのが優秀な人材 
>>505
出典（ソース）が不明な時点で検索エンジンとしては足りない ま、いちばんシンプルなGoogleの検索エンジンだって、ブラウザでAdBlockとかしとかなきゃ
余計な検索結果へいきで出して来るし、Yahoo Bing 百度 DuckDuckGo とか、無理やりブラウザに追加してくるし
道具をまんま使ってるだけじゃ逆に迷惑な場合もあるという好例
いい道具は使う側にもそれなりにスキルを要求してくる てだけ スレタイ読むスキルもないけどスキルについて熱く語ってて格好いいな ChatGPTで実用的なコードを生成させるための的確な指示を出せるスキルが必要になるわけで初心者では曖昧な指示しか出せず動いたとしても何らかの修正が必要、、、ということはそれなりのコードを理解していないとならんてことやんな。
AIだろうと人間だろうと他人が書いたコードの問題点を見つけるなんてめんどい。 正直ChatGTPでコード生成してくれるくらいなら
個人的もっとインテリセンスを強化してくれる方がありがたい。
以前どこかで何の言語かは知らないけど、メソッドの呼び出し口書いたらそれに合わせてシグネチャの部分を生成してくれるのを見たことがある。
現在実用化されているかは分からないけど。 やっと閲覧&書き込めるようになったな。鯖の不具合だとか？ >>506
Googleの検索結果だってリンク先の内容に確かなソースがあるとは限らんのだが >>514
神なんているわけないってのも宗教だしな GetOpenFilenameメソッドで複数の画像を選択して、それを配列に格納して、エクセルに順番に貼り付ける、というプログラムを組みました。
さらに、配列の一番最初？の画像のファイル名をセルに入力したいのですが、配列に格納されたファイルのファイル名を取得するにはどうすればよいのでしょうか すみませんできませんでした。
Dir（配列（インデックス番号？））で、0.185.jpgのようなファイル名は入れれたのですが、拡張子が消せません。
ドットはファイル名に使われていることがあり、拡張子もjpgのみではないです。
どうすればよいでしょうか？ >>519
FSOならファイル名と拡張子を個別に取得できる気がする。。。
何らかの理由でFSOを使いたくないのなら取得した文字列の一番うしろのピリオドの位置を特定すればいいのでは? Dir 実行した後で拡張子を削除したリストにする
https://correct-log.com/bat_get_filename_without_extension/
拡張子構わず削ってしまうので画像でないファイルが混じってたりすると混乱の元
そもそもファイル名に[.]を使うのが憚られるものだけど、品番・型番とかなんだろうと推測する
私的な用途じゃ無いんだから業務用途なら[.]を[_]にでも変換しといた方が後々のトラブルを避けられるような
社内でルール作りも大事（長年にわたりそうやってきてしまったので今更、、、というのも理解できるが） 俺はバージョンをそのまま書いてる
app_v3.1.4.exe みたいに >>520
ありがとうございます 調べてみます
>>523
小数点なので出てくるのは避けられません。 ChatGPTはVBAでStringBuilderを使ってくるからね。
ネット検索したら、VBAでStringBuilderクラスを自作してる奴がいて
本当にやめてほしかった。 webスクレイピングの質問してもいいですか・・・？
IEnavigate・・・じゃなくて、WinHTTPやXMLHTTPでスクレイピングしてると
ヤフーの記事検索で、古いバージョンの・・・ってなり検索を弾かれるんですが
回避方法とかあります？ >>526
そういう場合はChatGPTに「StringBuilderを使わないで」って命令すればいいだけ >>526
え？VBAでStringBuilder使えるの？ >>528
ありがとうございます。うまく出来ました。
恥を忍んで、もう一つ聞いてみますが
XMLHTTPとかの方法でjavaの中身をスクレイピングすることって出来ますか？ >>531
まれにできるケースもあるけどほぼ無理
browserコントロールかwebdriverを使った方が簡単で確実 シート全体から検索ではなく、
ブック全体から検索しそのセルまで移動するコードってどこかのサイトにないですかね？
検索までは出来るけど移動がうまく機能しないし、ChatGPTに何度やらせてもうまくいかず >>535
そのうまくいかなったコードを貼ってくれれば色々アドバイスできるかと >>535
シート内検索が出来ているのならfor each で全シートにその処理を適用させればいいのでは?
ピンポイントに目的を達成できるようなコードは都合よく転がってないかと。
ChatGPTには処理ごとの指示でコード生成させて自分で組み合わせれば出来んじゃね? 知らんけど 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 返信遅れてすみませんでした。何故か書き込めず。
for eachで回すようにして作ってみます。ありがとうございました。
>>538
found.Select 似たようなコードが出来たんですが、selectメソッドで失敗になるのですよね。 ChatGPTがダメなら
マクロ先生がいるじゃない >>538のChatGPTの回答は、検索範囲をSheets(1)と指定してるから1枚目のシートしか検索しない(ActiveSheetではない点に注意)
そもそも、Excelを手動で操作する時は「ブック」を指定して一発検索ができるのに、この機能がなぜかVBAからは使えない仕様になっている
だからループで全シート回すよう書き換えるしかない それをふまえてChatGPTに再質問すれば、ちゃんとループするコードに直してくれる
結局は便利な道具(AI)があっても、使い方が悪いと思ったとおりの結果を出してくれないってこと
https://i.imgur.com/UEY1EGX.png マクロを記録しながら手動実行して、記録されたマクロを参考にすれば上手くいくことがあるよ 今のAIはネットから情報を集めてくるだけで未来を予測する機能はない
予測サイトからデータを拾ってくることならできるけど、それはAIの予測とは言えない チャットGTPの種明かしだって結局は「データベース」にある事を答えているだけ
だからデータベースにない事は途端に破綻して頓珍漢な回答をする、これが「自信満々に間違える」という事
もっというとシュミレーションするスーパーコンピューターはあるそのシュミレーション結果が正しいわけではないので人間が判断して正しくない計算結果は全て切り捨てて正しい答えだけ残しているらしいです >>553
シュミレーションて……
DBだろうがなんだろうが使うやつがその特性を把握してハンドリング出来るかどうかって話なんだわ。
PCだってアホから見たらただの箱だろ 辞書が検索エンジンに切り替わって手間が省けるようになった流れの新たなブレイクスルーだろうな
知りたいことを探すときに単語に置き換えて色々なページから探していた無駄を省いてくれる >>556
違います
科学のシュミレーションを行うシュミレーションシステムはありますがシステムは正しい答えを必ずしも出すというわけではないので人間が計算結果を見て正しくない計算結果を削除し、正しいと判断したものだけを残すという形で精度や性能を向上させているそうです
これはチャットGTPにそっくりそのまま当て嵌まるし、なんらチャットGTPは革新的でもないという証拠です
そもそも知能や知性があるならなぜ出鱈目な答えを自信満々に出して間違えるのでしょうか？ あ、俺が馬鹿か
漢字変換が勝手に修正する…
シュミレーションと書くのは馬鹿 >>558
馬鹿は間違っていることに気づかないからだろ 例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？ 海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w >>563
じゃあなんでチャットGTPは自信満々にまちがえるのです？ >>558
おいおい、結局何と何が違うんだ？
話見えてるか？ 「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル
半角だと環境によってはわかりにくくなるからあえて全角で書いた ここはChatGPTの話題が出るだけで簡単に荒れるな スルーするだけで済む話なのにスレタイ読めないのか、
はたまた自作自演で荒らしてるのか >>572
一番の意味くらい知っておいたほうが幸せになれるよ 別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える スレ違いとかいうやつは見なければいいだけだろ。
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？ そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ 嫌なら見るな
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ 言い方キツイがど正論だな。
嫌なら開かなければ良いな。 ズレてるぞ おっさん 逆だな、とかどの立場で物申してるか片腹痛いわ 仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか 垂れ流されているのが本当にウンコかどうかは見なければわからんだろ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ 5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない >>579
番組の枠が野球の延長で延々と潰されてる状態と同じだよ
本来の番組を期待してる人にとっては単なるノイズでしかない >>441これ
何度も色んなスレに質問があって変なのって思ってたけど今、Lineの事務職VBAスレ？で今同じ質問してる人がいてびっくりしたw
親切な人が動画紹介してた。 >>590
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ 俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか 行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？
コピーしても絶対参照になって反映されず。
列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。 >>597
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける >>598
それは分かるんですが上手くいかず。説明下手ですみません。
結局1行ずつ条件付き書式設定を行うようにコード書きました。 ChatGPT ってそんなに凄いんか
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能 >>601
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。
ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。
マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。 敵キャラクターを作成する
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。
ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。
ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。
以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。 この部分のサンプルコードを教えて言うと一応コード書き始めるからな
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん AIに人権はないから著作権も存在しない
マリオといっても花札屋のとは限らんしな 作る人が多くなるとマリオのようなゲームのコードのテンプレのようなものがデータセットの中にできてきて
即答するようになるw 罫線を引くコードはマクロの記録をしたものを加工するのが最善？ 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.Address(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
－－－－－－－－－－－－－－－ 続きあり 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
－－－－－－－－－－－－－－－－－ 続きあり 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種 直線・矢印線・縦棒・細い▲ 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 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 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 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 補足 ：
UserForm 「BttnF」上に、描画用ボタン「Bttn、Bttn2、Bttn3、Bttn4」を貼り
それぞれのコードを割り当て
描いた図形を削除するためのボタン「mDel」も貼る
セル範囲を選択後、上記いずれかのボタンを押すことで描画したり消したり
描画するSheet上(A1:D4内に配置すればウィンドウ枠の固定をしてもズレずに済む)に
UserFormを出すボタン「cmdBttnF」を貼り Private Sub cmdBttnF_click()のコードを割り当て
他の図形の例 ：
' ひし形は msoShapeDiamond
' 四つ星は msoShape4pointStar 五つ星 msoShape5pointStar
' 開始位置に戻るは msoShapeActionButtonBeginning 進む(再生)は msoShapeActionButtonForwardorNext
' 終了位置へ進むは msoShapeActionButtonEnd
' 吹き出しもできる msoShapeBalloon
' 右向き六角形 msoShapeChevron
細い▲や縦棒が嫌な場合はこれら等で 皆様お助けください
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)に変えると通らない
配列をとある文字数数分だけ検索したいというだけなんですができなくて困っております
よろしく御指南のほどお願い致します >>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 >>627
なるほど、INDEX,MATCHに拘らない系ですね
ちょっと試してみます、ありがとうございます
GPTさんにいくら聞いても修正コードが通らなかったので助かりました すみません
フォルダの中にあるExcelのファイルを指定のシートのみ残してその他のシートを削除して保存するVBAは組めるでしょうか？
その他にも指定のセルの値をファイル名として保存する方法は可能でしょうか？ >>629
可能かどうかと言われれば可能。
ただ、誰かが開いてたりすることがあるのであれば
その考慮は必要。 >>627
ん？良くみたらこれはmatchの置き換えをしてるだけ？ Excel2013でブックやワークシートにコードは貼れますが特定のセルにだけコードを貼って動作させるというような事はできないんでしょうか
コードからセル範囲を指定するというような事しかできない？ >>635
どゆことかよくわからんけどイベントプロシージャのことかな? そうです
ワークシート以下の単位はないから貼れないんですかね多分 >>637
いやどゆことかよくわからんけど、例えばchangeイベントなら変更されたセルのrangeを取得できるからそこにコードを仕込むことはできるけど。。。そゆことじゃなくて? ファイルのパス、フォルダのパスをDimではなくConstで書く方がより正確性が増す
より確実に動作をする
という事はあるのでしょうか？ Constで正確性？確実？
エスパーすると関数型風に書きたいってことかな？
VBAでは無理だからそういう考えは捨てた方がいい 休みの日も一生懸命考えていましたがきっと私にそれを求められていないし、提案や進言をしても却下されるからもういいや VBAは制限多すぎるから何か自分なりの考えを実践したいなら別の言語も検討したらいいぞ 俺のエスパーだと、うっかり内容を書き換えてしまう事故が防げるって意味で言ってる？ >>645
もういいですどうでも
みたいな感じです投げやりになろうかな うーん一生懸命とかいうワードが出てくるって事は若い子なのかな
プログラミングはむしろ楽するための手段だからどうやったら楽できるかの観点で考えようぜ >>647
やっぱり一生懸命なのは若い人なのですね
一生懸命頑張ってもどうにもならないですもんね 私には何も決められないし、何も権限もないから勉強するだけ時間の無駄でした
一生懸命するだけ無駄でしたね せっかく便利なマクロ作ってもあまり感謝されないとき悲しくなりませんか？ 組み込み屋ならconstはROMに配置されてRAMを圧迫しないとか考えてそう。 >>651
過去と他人は変えられないそうです
世の中にはITに疎い人たちがまだまだいるのです いや>>639が質問にもなってない事に一向に気付いてない辺り一生懸命さが足りてないな
論文の出だしの問題提起として>>639を前置きして、その後に持論が展開されるならは意味が判るのだが、その後のレス支離滅裂だし
論理的思考力を鍛えるべきだね 妬み僻みが先にたって、
集合知にならない日本人の悲しさ >>651
こういうツールを使いこなせる俺すげーってなっちゃうから >>653
過去は絶対に変えられないが他人は変えられる可能性がある。
実際『過去と他人は変えられない』という話をどこの誰から聞きかじったのかは知らないが、あなたはその言葉を聞いてその考え方に変わったわけだ。
あなたの立ち居振る舞いによってあなたの周りの人たちは変わる可能性がある。 >>651
そこは乗り越えました。親の気持ちになって与える側だと思って使っている人を暖かく見守りましょう
そして、感謝無く文句しか言わない奴にはID取得して動かないように仕込んでおきましょう（UserNameで取れるか試しておきましょう、大概従業員番号か端末番号です） 社内汎用なのにコードにパス掛けてる人って何なの？と思うんですよね。別に機密でも無いしいじり壊すヤツなんていやしないし開けておけよと良く思います
こういう人は自分のやったことを抱え込みたい人が多いんですかね？ 褒められたい
認められたい
尊敬されたい
何か間違ってますか？ たまたまマクロ使えただけとかいうクソがいてマジでイラつくわ >>658
それはあなたがまだまだお若いからです
猛勉強をして医学部になり研修医になり医者になった人が、それからも成功したいと思い開業医になり、猛勉強をしながら人のために何をしたらいいのかと考え続けておられましたが、そうした生活の中で得られた結論は「他人を変えられない」でした >>664
医者と関係なくない？
というかなぜ医者の話をしたの？ '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) ' 文字列を含むセルを数字に変換する
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 RemoveDuplicates はメソッド メソッドとはオブジェクトを操作する命令文
dupCount はCellの数を削除前と後でCount辺りで別途算出 「ちょうふく 」と読む人と「じゅうふく」と読む人いるね >>666
一生懸命勉強をして頑張っている人でも人を変えるのは無理だというのが結論なのにあなたにはそれが出来るのですか？ 「じゅうふく」と読む人と「ちょうふく」と読む人いるね すでに回答あるけどエラー表示通り、Long型の変数にRangeを入れようとしてるから
検証してないけど
rng.RemoveDuplicates Columns:=1, Header:=xlNo
で動くかな?カウントは処理前後で取得すればいいかと。 >>669
>>673
出来ました。ありがとうございます。 >>675
どちらも正解だけど一般的にはちょうふく Option Explicit は使った方が良いですか？
Lastrowが多すぎて外していたんですけどやめた方がいいのかわからない。
直すのも面倒 >>678
苦行が好きならどうぞ外してくださいな。 >>678
そんなことも人に聞かないとわからない人は外さない方がいい Option Explicitを使用することをお勧めします。Option Explicitは、VBAプログラム内で使用されるすべての変数を明示的に宣言することを強制するため、タイプミスやスペルミスなどのエラーを防止するのに役立ちます。
また、変数を宣言することによって、コードの読みやすさと保守性を向上させることができます。たとえば、変数のデータ型が分かっている場合、誤ったデータ型によるエラーを防止することができます。
つまり、Option Explicitを使用することは、より正確で安全なコードを作成するために重要です。したがって、可能な限りOption Explicitを使用することをお勧めします。
また、コードの修正が面倒である場合でも、過去のコードを修正することで、将来的に発生する可能性のあるエラーを防止することができます。 フィルターの項目事、あるいはセルの項目ごとにシートにコピーするかファイルに出力する方法はありますか？ 過去スレにそんなもんは付けないよとかほざく猛者いたな。
理由は支離滅裂だったけど 本当ならOption Explicitの他にOption Strictも欲しいくらい。
ただ、それに慣れるとVBSやJavaScriptみたいな言語に当たったときに一瞬躊躇するから
型に関してはそれが読み取れるような変数や定数の名前の付け方をするように心掛けてはいるけど中々難しいんだよね
接頭に型を現すような文字付けるのも有りっちゃ有りなんだけどなんか「あー、初心者がよくやるよね」みたいな感じがしてちょっとイヤ BingのAIと会話してみた感想
サイトの記述を引用しているだけだから自然な文章なのは当然
回答パターンがまだまだ少ない
いいねボタンとバットボタンがある
いいねの多い回答だけ残す、バットの多い回答は表示させない
↑であれば当たり感触のない回答しか学習しない、人間の知能を越える事はない
そしてそのやり方は前からあったシミレーションのプログラムと同じ ChatGPT 3.5は出鱈目な回答をしていた 4.0になって当たりざわりのない回答になった
そういう事でしょう？ お前がそう思うんならそうなんだろう…お前ん中ではな… 有用性とか将来性が分からなければそれでいいんじゃね
勝手に遠ざけてどんどん取り残されればいいさ Lastrowってどんな感じで変化させてる？
シート数多すぎて混乱する 野獣先輩 と聞けば回答を途中で打ち切る
しかし 中国 野獣先輩 と尋ねると中国での野獣先輩ブームをスラスラ答える AIの回答には引用元のリンクがあるので著作権問題に繋がるのもよく分かる 仮にここから5.6.7とバージョンを重ねてデータベースが増えたと言ってもそれはますます膨大な情報量によって平均への回帰とかよくあるご意見になるだけだと思う
膨大なデータベースがあるからとほぼ全ての人間が間違っていると考える答えを導き出しますか？
そうでなくてもデータベースにない（人間の盲点）情報は出鱈目な回答を生成しますよ
現状は人間が検索していくつものサイトを見て得た情報を代わりに要約してくれる（しかもその要約も正しいか不明、正しいとしても他に見るべき情報は本当にないのか？）程度の品物だと思う
つまり検索エンジン 人型ロボットの進化も著しいものがあります
しかし直ぐに壊れる、壊れやすいと言う欠点（これは私も盲点だった）が露呈した
「人型ロボットはここまで進化した（している）」という短い動画を見て凄い、凄いと言っていただけでその裏側を見ていなかった
ごく一部の切り取りだった >>702
あれだけAIが凄いと言っていた人が多いのに？ 多いんじゃ無くて、特定の少数がやかましいだけ
新しい技術はまずは様子見するのがベテランだろ 触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む
今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ
急がば回れ 慌てるコ〇キは貰いが少ない 善は急げで道端の石に蹴躓いてたんじゃ元も子もない 様子見するのはベテランじゃない
レイトマジョリティ、あるいはラガードな これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か おお、かっちょいい呼び方 ま、覚えてられないと思うけど
散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし
HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし 何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで)
それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて イイネw 初めての試み
他の人がやっていない事
他と違う事
は往々にして頭がおかしいと言われます
AIがこれらの回答を生成してもそれは同じ AIに狩野英孝って書いて画像生成させてみ？
女性しか生成されないぞ？ >>693
シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね？ そうね
エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と
ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と
2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、
最終行以外の何かしらのシート情報を持たせるならクラスを、
そうでなければそれ以外の方法を使う感じになると思うのだけれど、
実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね？
個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。 トグルA、Bがあって、
①(初期状態)AがOFF BがOFF
②AをON
③BをON
の順に操作した場合、
まず②で、トグルA_Click()イベントのみ発生
③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、
前からそういう挙動でしたっけ？ トグルA_Click()のイベントプロシージャの中に、
トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました)
トグルBがONになっている状態でトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。
この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。
これは仕様ですか？ スレチっぽいですが、わかる方いましたら回答をお願いします。
VBAとSeleniumを使用してスクレイピングをしたいのですが
1枚の画像を取得するだけでもメモリ不足と出ます。
ChatGPTに聞いたら Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。
と返答がきましたが、VBAでは重くなるのでしょうか？ >>726
ありがとうございます。
何か負荷がかかることをしているのかもしれませんね
もう一度見直してみます。 そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい とか、もっと前向きに
単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど） 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 プロパティを設定できません」と出ます。
どうすればよいでしょうか >>729
"mm/dd""(""ddd"")""" >>730
エラーは出なくなりましたが表示形式は変わりません。
これは"を一つ追加したようですがどういった意味があるのでしょう >>731
前略Offset(1).Value = Now 仕事でVBAマクロを使用しておりそのマクロではapplication ontime？ を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます
一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます
わかりにくくてすみませんがアドバイスよろしくお願いします。 >>733
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す
任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる その、閉じますかマクロは必須、必要な処理なのか？意図がわからない
むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？ 職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？ 一つお尋ねしたいのですが
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています シート1をシート2に転記
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー
最終的にこうしました たまにしか使わないマクロを
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。 たまにしか使わないのとよく使うマクロを区別する方法がない PERSONAL.XLSB内の個人マクロかなんかのこと？
使わないのはprivateにでもしたらいい >>744
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。 UserFormにボタンを追加した後、ボタンをダブルクリックすると、
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか？ 一番上とか一番下なら分かりやすいんですが、そうならないんですよね。
追加した順でも、VBE上の直前のカーソル位置でもなく。 With
Worksheets(1)
Debug.Print .Name
Worksheets.Add Before:=Worksheets(1)
Debug.Print .Name
End With
と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？ それ以外にも記述できたらどれに記述してるかわからなくなりますやん IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？
綺麗なコードの書き方のアドバイスお願いしたいです >>754
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる オートフィルターを設定
セルの値でフィルター
別シートにコピー
.copy（名前をつけて保存）
までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？
ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました VBScriptの公式ドキュメントどこに行ったんですか！？！？ sheet（2）,range.value = sheet（1）,range,value
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか？ エクスプローラ上で画像選んで
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね？
ググってみたら以外と出てこなくて… https://excel-ubara.com/excelvba1/EXCELVBA421.html
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？ >>762
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ
かと言って、これだけのためにライブラリ追加したりってのも…
WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ
vbaからgdi+はネット上にかなりの資料があります >>764
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ Worksheets(～).Copy
ActiveWorkbook.SaveAs fileName:= ～ =xlOpenXMLWorkbook
ActiveWorkbook.Close
でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません
なぜでしょうか？ シート（A）に記入します
シート（A）を複製するコードを実行して
シート（A）2を作成します
シート（A）2に記入します
シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？ ど初心者で申し訳ない
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？ >>770
ユーザーフォームの表示位置は設定できるんだから
後はAPIでもなんでもいいから一定時間で起動するイベントで
位置をずらして行けばいいだけじゃないの？
そういう意味じゃなくて？ 自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ 部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか？ マウスで好きな位置にドラッグしろと突っ撥ねろ やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ >>770
なんでそんな事が必要って話。
マウスが無いなら別だけど。 >>775
2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる
セルの値を比較するだけなら単純にセルの前にシート名を書けばいい >>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな
If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If >>780
どうやってElseのセルの塗り潰しをしますか？ >>782
もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う
Sheets(1).Cells(1, 1).Interior.Color = vbRed Private Sub FillDiff( _
ByVal DstSheet As Worksheet, _
ByVal SrcSheet As Worksheet, _
ByVal cy As Long, _
ByVal cx As Long, _
ByVal f As Long)
Dim d() As Variant
Dim s() As Variant
Dim row As Long
Dim col As Long
With SrcSheet.Cells(1, 1).Resize(cy, cx)
s = .Value
End With
With DstSheet.Cells(1, 1).Resize(cy, cx)
d = .Value
.Interior.ColorIndex = xlNone
End With
For row = 1 To cy
For col = 1 To cx
If Not (d(row, col) = s(row, col)) Then
With DstSheet.Cells(row, col)
.Interior.Color = f
End With
End If
Next
Next
End Sub >>785
VBAでセルの色も塗れないようなレベルじゃ
このサブルーチンを使うための引数さえ入れることができないと思われる 変数名に違和感しかない
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手 座標にx、yを使う気持ちはわかる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる 他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。
本人でさえも1ヶ月後には解読に時間がかかる。 俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針
Dim sr() ' Source Range
みたいな感じ VBAなんてグループで開発することなんてほぼ無いし
コーディングルールなんかあってないようなもんだな グループでなくとも別の人とか辞めた後にとかあるのに 自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ 出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ
史上最強の暗号に成り果てる どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる 彼女は優秀なデクリプター 粗末には扱えない
(因みに彼女は打ち合わせに同席していない) 罵倒されながら清書している時間は至福のひととき >>792
それよくいうけど、
知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ >794
こんな無能の塊と一緒に仕事する人は可哀そうだな >>790
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。
後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。 エクセルを月曜～金曜の決まった時間に実行する場合は
イベントプロシージャを使うのが一番いいですか？
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください >>800
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと？
タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの？ >>800
エクセルを実行するのだからタスクスケジューラだろ
馬鹿ですか？ >>801
盛大に勘違いしてました。
タスクスケジューラーで問題ないですね。
ありがとうございます。 >>787
cx cyは座標ではなく
count of x
count of y
MSがwin32APIのc/c++で使ってきた古い接頭語です
まだSIZE構造体に残っています ビーングは4.0って本当かよ
3.5の方が正しいコード書いてくれるんだが 条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？ 背景色を変更する条件が付いているから 条件付き書式 と呼ぶ
条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない 条件付き書式の色だけをコピーするためには
クリップボートのコピーと貼り付けを行えばいいところまではわかりました
そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました
しかしActiveSheet.Pasteで貼り付ける事ができないです
どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？ >>812
ところにそのままペーストすることは無理なのですか？
ではこの様に
Sub Sample1()
Worksheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub
とするのであれば問題ないのでしょうか？ やりたい事は
今選択しているシートをコピーして末尾に送る
コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す
という事がしたいです
なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？ VBAが使えないのにワープロが使えたことを自慢していた爺かな >>816
ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？ 条件付き書式から条件を消して結果の色だけ残したいんやろ
それは単純なコピペじゃ無理
DisplayFormatでセルの色を調べて自力で再設定するしかない >>820
https://tokusengai.com/_ct/17541893
https://dekiru.net/article/16416/
クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました
そしてクリップボートのコピーはselection.copyだという事も判明しました
なので後は貼り付けのみ実行したいのですが
ペーストもスペシャルペーストもエンターキー送信も
全て貼り付けられませんでした ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？ 初心者によくある思い込みと表現が稚拙すぎてかみ合わない もしかして
VBAで条件付き書式のある範囲をコピーをコピーしたときは
必ず色のコピペではなく、条件付き書式のコピペになってしまう
という事でしょうか？
なのでVBAで条件付き書式でつけられた色を塗りたいときは
必ず
Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex
を使用しなければならないという事でしょうか？
しかも範囲選択も使えないと https://okwave.jp/qa/q9992673.html
最終的にこれでやりました
もっと短いコードで行う方法はないでしょうか？ 別シート（コピー先シート）の範囲に.DisplayFormat.Interior.ColorIndexの値をコピーさせることはできないので
別シート（コピー先のシート）にコピー元のアドレスを参照させるという形なのでしょうか？ 馬鹿は馬鹿だから自分の考えた方法が間違えていると指摘されても馬鹿な考えに拘り続ける法則
その実例 >>827
すみません
今回は条件付き書式で塗られている色を値が変わっても残る様にしてほしい
という注文があったので条件付き書式の色を残すという事を考えていました
私は簡単な事だと考えていましたが、「条件付き書式の色をコピーするという事」が想像以上に難しかったです
今回エクセルの古い機能は問題があるかもしれないと学びました Excelのせいかよw 古かろうが新しかろうが、使用してる環境で張り切るっきゃ無いだろ
それが注文を請けた側の望まれる姿勢 無理なら「できません」ってアタマ下げる
アタシは悪くない、ぜんぶExcelの古い機能のせい ハイハイ、注文した方にそう言い訳しときな
つか、最終形に到達したんだろ？ それをもっと短いコードに出来ないってだけだろ？
自分はできないけど誰かやって、かよ それをじぶんの手柄か？ おめでてえな >>831
つまり今回の例で言うとExcelの仕様的に出来ないと断るのは望まれる姿勢なので良くて
出来そうだから引き受けたが、かなり難しいのは望まれる姿勢ではないのでダメという事でしょうか？
では例えば知らないので出来ません（無知の知）というのは望まれる姿勢なのでしょうか？ 馬鹿って自分ができないことは製品のせいにするんだな 注文って言ってるぐらいだから金が発生してる仕事なのかしらんけど
こんな奴に作らせていいものかと思わなくもない
書き込み数から見て必死さはうかがえるが すみません
私は世の中の事や仕事という事を全く分かっていなかったです。
久しぶりの感覚を味わいました。
こらからは出来ない事は出来ないとしっかりいう様にし、自分に確実にできる事をいう様にします。 それはそうだろw 出来もしない奴が「できらあ！」で勝手にいぢくりまわしたら周りが迷惑
どういう立場(内製・外注)か分らんが、出来ないものは「出来ません」とキチンと伝えられた方が
頼む方も判断の材料に成る 「じゃあ他の奴に」と方針決定も早くできる
請けたままグダグダいつまでも結果出さないでいる連中が多過ぎるのは企業(組織)の損失 なぜ「エクセルの古い機能」と決めつけて「問題」だとも決めつけているのか
こういう中途半端の知ったかのせいで風評被害が生まれる vbaばっかり使ってて知識のアップデートも出来てないから関数を全く使えてない
xlookup？xmatch？？unique？？？indirect？？？？おっさんには無理 浅い知識でなんとかなると思って痛い目みてると自覚してるならもっと勉強しような 何でそんなに無差別に煽ってるのか
余裕ないな…年収低いのかな… 条件付き書式の「条件」を調べて
マクロ中で条件を判断してコピペ時に
自分で書式を設定するのがいいのではと提案する それでも条件付き書式の優先順位やペースト時は値だけにするとか色々あるけどな 先程の話を聞いた限りでは
もうひとつシート作っといて
対象シートと同じ値を設定しといて
値が違うなら着色するのを条件付き書式の
条件の中に混ぜてやれば出来ない
気がしないでもない。
その判断用シートを見せたくないなら
Very hiddenで隠しておけばいいし。
ま、方法は探せばまだなんかありそうな気もするね。 すみません
本当にその通りだと思います
情けないです 試しに最終的に使用したコードをbing AIくんに尋ねてみました
そうしたら解説をして頂けました
ありがとうございます 任された仕事、引き受けた仕事はミスなく完璧に仕上げないといけない
という話を聞いてそれではとても仕事を引き受けられないと思うのと、ネットで言われていた「私がやります」と仕事を引き受けたら責任の押し付けをされるから誰も引き受けようとしないという話がやっと理解できました 責任の押し付け合い、押し付けになるのなら誰もやりたがらない
普通ですよね？ ワッチョイないせいか完全に雑談みたいなスレになっちまってるな 元々へんなおぢさんが立てたスレだぞ 正規のスレは別にちゃんと現在進行形で生きてる
それでも所々ではキチンと応じてるひとも居るから続いてるだけのこと
>>825 のリンク先の回答で、なにが不満なんだかソッチのが理解できない
「もっと短いコード」って、それ以上短く出来ないだろうに
もしかして試して無いんじゃないのか？一瞬で要望満たすぞ？ Excel2016での質問だし、もっと古いVer使ってんのか？
そこで解決！で終わらせてりゃ、余計な罵倒されずに済んでたのに まぁ、要件が要件で無意味な要求にも思えるけど 会社のレベルが低いし勤務してる俺のレベルも当然低いんだが
DX化の推進、早くpython入れないと
と連呼してる人の内容を聞いたら
社内サーバの特定の場所にある1000以上あるpdfをExcelに名前を取得してリスト化したいと…
更にリンクで飛べるようにしたいと…
pythonいれずともマクロでやって神扱い 自慢なのかただの事例報告なのか分からんが、凄いとは思う とにかく書き込まれるレス全てに煽らないと気が済まない奴がいるよな。
>>856とかその常連だし。 PDFのファイル名だけならそこまででもないような？
まあ神扱いされて？ならそうじゃないんやろなあ >>854
わざわざすみません
セルの色 = ディスプレイに表示されているセルの色
に勝るシンプルなコードはありませんよね
情けないです >>855
全く悔しくないので申し訳ないですがパワークエリでも出来なくもない様な、、、 For Each Range型変数 In 範囲
If Range型変数.Value <> Sheets("比較するシート").Range(Range型変数.Address).Value Then
やっぱり短いコードがあったのですね
本当に恥ずかしい いや、いちいち何でマウント取ろうとするのか…年収低いのかな Then の後に記述する量が余計でしょ？ IF分岐させる意味無いでしょ？
ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。 >>864
bung ai君にも ifとthenが必要です
と怒られました まああれだ 美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ
ちがうか 何がしたいんだかとっ散らかって来てる様子だな
>>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？
Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、
CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？ bug ai に改名した方がいいな
広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで
どれが美味いものかは、本人しか決められねえ 近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような 仕事は確実にできないといけない
できもしない仕事は引き受けてはいけない
という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ AIの仕様は誰かが決めたのかね
確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ ChatGPTは本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール vbaでの処理のさせかた、ひらめきが大事なんよ
センスない奴はコードの書き方以前にその発想が弱い
要するに仕事が出来ない
短く書く、無駄なく書くことが目的になって年収が低い どんなにいい道具でも使う人間がアホだと問題が起きる Google検索もウィキペディアも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 新聞もテレビも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 任された仕事、受けた仕事ができないのは失格だー
というのならAIだって不正格なのだから失格ですね 結果から言うと、こんだけ話題になって活用されて金も集まってるんだろうからかなり有能だなw 昨年はまではchatgptなんて話題無かったもんな。 道具なんて使う人次第
包丁だって人を殺せるし、Excelも使い方を間違えれば生産性を落として会社を殺す あまりExcelをヨイショすると、またGoogleスプレッドシート厨が暴れだすからうざったい。 半年くらいだったら自分の書いたコードの意味が一発ではわからない。
チャット GPT にリファクタリングをたのめるのだろうか 書けるけど読めないは最悪で将来役立たず認定されるから早めに現状から抜け出す手はずを整えたほうがいい >>891
おっしゃる通りなんだが、クセというのはなかなか治らないものだから 自分だけで見ていても問題点がわからない。それでチャット GPT に見せれば 厳しく指摘してくれるんじゃないかと。
もちろん全部 鵜呑みにするわけじゃなくて、言ってみれば アイディア出しのツール として使えないか っていうことなんだけど。
どうかな？ >>892
その指摘を理解できるのって話じゃない？
このスレはChatGPTに話を振るやつ多いけどそもそも自分の書いたコードにしろ他人が書いたコードにしろ読めない奴が
リファクタリング以前に何をしたいコードかわからないならどんな指摘もらってもそれが正しいものかわからないだろ？
その時にはどうするのって話理解できてる？ >>894
半年経ったら一発で読めないだけで、何がやりたかったのか全体的なイメージは記憶に残っているし、時間をかければ各行の役割は理解できる。それを一発ですらすらわかるようなコードにリファクタリングできないかというだけの話 ChatGPTに聞きまくって作りまくってるしコメントも残してあるからメンテも超楽
もうvbaは十分だからpythonを学ぶべ >>895
最初にそうやって書いておけばいいだけの話では >>895
コード1行1行がわからないとかおかしくないか？書いてあることそのままだろ？
ブロック単位のコードが読めないならコメントなりでやってることを自分が読める言葉で書いておけばよくね オリジナルな変数名や関数名使ってる人は
自分の書いたコード読めなくなってそうな気がする 他人が考えたコードをコピペするだけの奴の方が内容覚えてないだろう 任された仕事が出来なかったら怒られるんだったら仕事をどんどん引き受けようとは思わない、スキル開発なんて出来るはずがないですよ 情けないw きんたま付いてンのか
ま、そういう連中が多ければ多いほど、それを乗り越えられる奴が人より伸びて出世して率いていける
それでも、昔と違って上役個人のその場その時の感情に任せた怒りは害悪だと広く知らしめられているご時世だから
怒られるってのは随分減ってる 注意されるのが嫌だと言うなら、それは自分でじぶんの成長を止めているという事
上司上長だって見込みの無い奴にいちいち注意とか指導とかしたくない したところで変わらないと承知してる
注意されたり指導されたりしたら、見込まれてると信じて自分を成長させていく努力を重ねろ
そんなのは嫌だと言うのなら、そのままペーペーの下っ端の人生をまったりと送れ 本当にChatGPTがそこまで有能ならば
VBAのプログラマーであるお前らはもう用済みだろうな
SEとChatGPTだけで開発出来ることになる ウィンドウ枠の固定の固定を行列両方でやる方法はありますか？
手作業でやった場合は
B7を選択し、表示 → ウィンドウ枠の固定 → → ウィンドウ枠の固定 の順でクリックすると十字線で固定になります。
これをVBAでやる方法を知りたいです。
' 起点となるセル（B7）を選択
Range("B7").Select
' 行と列を同時に固定
With ActiveWindow
.SplitColumn = 1
.SplitRow = 6
End With
ActiveWindow.FreezePanes = True
これだと上手くいきません。 >>907
その真ん中は要る?
>>909
こういう書き方はどう?
Sub a()
If b Then
Cells(1, 1).Value = 1
Else
Cells(1, 1).Value = 2
End If
End Sub >>907
ThisWorkbook.Worksheets("Sheet1").Activate
Range("B7").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True >>906
つか最近はVBAの案件が激減りでしょ。
クラウドワークスやココナラにたまに案件出る程度。
しかもクソ以下な報酬だし。 Microsoft365Copilotってどこまでできるようになるのかね？
VBAコーディングのアシスタントもしてくれるのかな？ >>904
初めてやる事、勉強しないとわからない事をミスや間違いなくやれって言われても無理だなぁ 職場内の指示ならサポートする人がいるでしょ
自分で取ってきた仕事ならそれをわかってて受ける奴がバカでしょ >>911
オープンソースのChatGPTでも、適切に質問すればちゃんと動く完全なVBAを書いてくれる
それ以下の性能になる可能性は低い いやむしろChatGPT並のaiを搭載出来ると思えん
毛の生えたイルカ 今のAIなんて性能は横並びで、違いは学習データの多さだけ
言い換えれば回線の太さとハードディスクの容量で決まるようなもん
最初はポンコツでもMSの持つリソースを考えればChatGPTなんかすぐに追い抜くのは容易に想像できる 昨年までchatgptなんて話題になかった。今年からだよね確か？ chatgptにTTRPGのGMやらせたのは去年だった気がする。 >>910
そうなのかな？
VBAのPGだけで飯食ってる訳じゃないから分からないけど
ChatGPTがそこまで有能だと言うのであれば
いずれはプログラマー全員が干されることになるだろうな >>919
そんなことを思うのは無能のレベルの低い人だぞ >>919
確かにchatGPTはコードを書けるけど
なんの責任も取らないchatGPTが書いたコードを
何も知らないままコピーで使うってのは流石にできないだろ
人間がそれなりにコードのこと知っている(=そのコードの責任を取る)からこそ
コピーが出来るんじゃないか？ 今のAIは、結果が正しいかどうか判断できないもんな
そこまでできるようになったら人間の仕事がいよいよなくなる chatgptに試しにコードを頼んだら、変なことやり出す時あるから恐ろしいわな。 普通に考えて間違っていることなのに正しいと言い張って悪いことする人間もいる まともなコードをかける人だけがChatGPTを貶しなさい chat GTPがコードを書いてくれても使う側の人間がシート名を変えたり、シートを並び替えたり、列や行を挿入したりするから無意味だゾ 外資系化学メーカーだけど日本の企業からExcelが消えることは自分が定年するまではないわ
AIが発達するならそれに任せるしそこまでいかないなら今まで通り自分で作ってメンテする
ただGPTは十分つかえるし凄い 自分が作りたいものはほぼ過去作のコードコピーして手直しするような感じだからそういう人にはあまり必要ないかもしれないが
まるまる使うわけでなくひな形としてサンプルコード生成してもらうような使い方ならありかもね 非表示のシートにコピーしようとする
あるいはアドレスで参照しようとする時にエラーを出す条件はなんですか？ クラウドワークスのVBA案件が少ないのは分かるが、単価はクソじゃないだろ。 コードが長いのでプロシージャを分けたいのですが変数は
グローバル変数を使って変数をひとまとめにするのと
再度プロシージャで同じように定義しなおすのはどちらが一般的ですか？ 全体の一部だけ修正するなら好きにしろじゃね
関数Aを関数Bと関数Cに分割するならPublic（モジュールのPrivate）変数にしたほうが直しやすいし
関数Aを関数A自体は残して中のコードを関数Bと関数Cに振り分けるなら
Public変数だけでなく関数Aのローカル変数を関数Bと関数Cの引数に渡すこともできる >>936
作業用の捨て変数のことなら、毎回いちいち宣言しないとバグの元
グローバルにすると、例えばループの中から別プロシージャを呼んだ時に破綻する >>936
グローバルかローカルかは変数の役割と範囲次第だな。
グローバル変数は便利だけど多用しすぎると
面倒臭くなるから注意な。
ローカル変数は見通し良くなるから使えるときは使うべき。値の受け渡しが必要なら引数使うのが普通だよ。
とはいえ、プロジェクトの性質や要求によって
適切な方法は変わるから自分で考えてみてくれ。 ありがとうございます。
プロシージャ毎に１つずつ実行するときと
複数順に実行する場合があるので
引数だと面倒だなと思ったのでグローバルにしようか悩んでいました。
自分の能力ではコードが増えたときにグローバル変数だと混乱するのではやめておきます。 ミスや不具合のあった時にあーだこーだ言われるのだから日本にはAI開発なんて不可能 日本企業は権力に弱いからあーだこーだ言われてしまうと萎縮してしまい海外AIのような思い切ったプロジェクトを立ち上げる事ができないという事は言える
これは各省庁の圧力を封殺して国が主導して補助金まで出すようになれば事態は一変するかもしれない 他人のカネをあてにしたプロジェクトで成功した試しが無いだろ
ビンボこそがパッションとモチベと成し遂げる意思と工夫とプランニングに富む基礎と成る
食えるか食えないかギリギリのビンボがな 課題が多いのは事実だがそれを乗り越える技術のある人もいることに期待する もっと言うと、デカく成った企業は保身に走る、突っ走る デカく成りつつある企業もそれに倣って保身に走る
それは中の人が(俺の代でポシャる訳にはいかない)と、無難な路線しか認めないから 挑戦の二文字は倉庫に仕舞い込んでる
それに加えて昨今のHDブーム 何でもかんでもホールディングスにすりゃいいと安易に設立して内部留保に励む
前世紀末のバブル崩壊をまざまざと経験した世代は特に臆病風を吹かしまくる チキン・ハート症候群だ(現役だけに大迷惑)
その点、昨今の怖いもの知らずのZ世代なら、悪事を働く方向とは真逆のベクトルで突っ走ってくれたら
とんでもないイノベーションを起こす可能性を持ち合わせている ウィリアムやスティーブのようなのが出て来る可能性も
まあ、願望だけだが それでも、ひとりかふたり出てくれればゴロっと変わる可能性だってあるんだから、希望の光は消えない Application.OnTime TimeValue("12:00:00")
オンタイムメソッドのコードのテスト方法って何かありますか？
動くかの確認に毎回時間を合わせてテストするのが大変なので質問しました すみません
ここまでのコードはうまくいくのですがこの先の以下のコードを実行すると400や1004のエラーメッセージが表示されます
しかしながら望み通りの場所に名前をつけて保存してくれます
なんのエラーが出ているのでしょうか？
Sheets("リスト").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TEST1.xlsx"
ActiveWorkbook.Close
End Sub
リスト シートをコピーして新しいブックとして開き、名前をつけて同じ場所に保存という事がしたいです。 おそらくやっと原因が判明しました
OneDriveのせいでした ２～３０年後ぐらいにAIの分野の遅れが致命的になり慌ててAI庁とか作りそう >>946
今の日本は現場が下に見られるから
技術のある人は権力や役職者にいいように利用されて終わることが多い やっぱりめちゃくちゃ丁寧にコメント残して変数の宣言をめんどくてもしっかりしとくと後で手直しが楽だな…
社内サーバーが変更になって他部署のマクロがあちこちエラーでバタつきまくってるけど俺の作ったvbaちゃん達は少しメンテしただけでオールオッケー
ヘルプが来たけど他人の作ったマクロ全然わかんね ウデを持ってるなら、そんな環境からとっととおサラバするのがいい
サヨナラされてようやく気付く企業も多く成るべき
それでもそこにしがみ付きたいなら、技術だけじゃなくて知恵も蓄えないと
どうやってその邪魔な上役・役職者を失脚させて、徐々にでもじぶんの地位を上げるか とか
学歴・派閥・職歴えｔｃ、ひとは誰しも欠点を持ち合わせてンだし、そこをトコトン突っ突かないと
ブツブツ文句垂れてるだけじゃなにごとも変わらない 諦めたらそこで終わりなのも事実だし 一つだけお聞きしたいのですが、VBAを作成したとしても利用者がシート名を変更したり、シートを削除したり、シートを追加したり、並び替えたりしたら自動化や効率化のやりようがないですよね？
オブジェクトが存在しないとか並び替えられていたらインデックスで指定するのが無理とかそう言う事になりますよね？
VBAは決められた手順通りに定められたメゾットを実行する物であって、ブックがめちゃくちゃだと実行しようがないですよね？ シートをオブジェクト名で処理すればシート名変更・並び替え・シート追加はどうでも良くなる
シート削除対策は予備シートを他のブックにでも入れておいて本シートの存在判定後に予備シートからコピーすれば良い >>960
なるほど
ちなみに一番新しいシートのオブジェクトを指定する方法はあるでしょうか？
ブックにあるオブジェクトを探して一番大きい数字のオブジェクトを指定できるなら助かるのですが
worksheet.countやworksheet.count - 1の様な事をオブジェクトで行いたいです 普通は新しいシートを作る位置でその手のコントロールをすると思うけどね >>963
並び替えられると動作しなくなるのでどうにか不変もので出来ないのかなと思いました
連番？で数字が増える事だけが頼りです >>964
新しいシートを作るのがコード自身ならコントロールできるでしょ
あと、並び替え程度で動かなくなるとか
シートを作られただけで動かなるコードなんてのは脆弱すぎるので
先ずはその点の改良をしたほうがいい そんなんで駄目になるなら初めからガチガチにロックしてこっちが想定した操作以外できなくしてしまったほうが早い気がする VBAでどんなコードを書いてもユーザーが勝手に変更したら動かなくなるよ >>965
やりたい事は一番新しいシート（最新のシート）とその前に作成されたシート（古いバージョンの様な）を比較して一致しないセル（変更のあったセル）に色を塗ると言う事がしたいです
一番新しいシートはマクロを実行する度に複製されます
私は一番新しいシートに記入してマクロを実行すると直前のシートと比較して色を塗る所まで出来ました
しかし利用者の方が一番新しいシートに記入される方ばかりではないと言う事にも気がつきました。
なのでどこのシートでマクロを実行しようとも一番新しいシートとその直前のシートで比較するマクロを組みたいです。 どこかにシートの作成履歴を保存しておくしかないのでは？ ブックを開きその時点での一番新しいシートに記入する
マクロのボタンを押す
シートを複製する
一つ前のバージョンのシートと比較して変更のあったセルに色を塗る
と言う事がしたいです
つまりマクロを実行するシートというのは常に新しく複製されたシートです
理想は常に新しく複製されたシートのオブジェクト名を取得してその前のバージョンのシートと必ず比較できるマクロが組みたいです ttps://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11256025046
ここに書かれているCode nameが最大のシートを探すと言うのが答えになりそうなのですが私には分かりませんでした そのブックの構成がよくわからないな
その古いシートへユーザーが書き込むってのはミスなの？そのシートに書き込む必要がある状態なの？
因みに、codenameを取得して番号から最新シートを把握というのはちょっと微妙な気がする
何故ならシートのオブジェクト名もシート名も
そのEXCELブックが立ち上がった時の一番若い番号に振られるから
つまり、オブジェクト名に歯抜けの番号があればその歯抜け番号が最新番号になる、、はず
そんなのより各シートにインデックス番号を
シート内の固定場所に
振っていくほうが手っ取り早いんじゃないの？
若しくは管理用シートを別に用意するとか手段はいくらでもある なんとなくわかって来ました
初期値のworksheet（シート名？オブジェクト？） < ブックの中のシートのコードネーム
がthenならそのCode nameを変数に入れたらいい
そしてそのCode nameのシート名を取得して変数に入れればいい
と言う事ですね >>972
本当にありがとうございます
私はvbaの初心者で必ず最新のシートが選択される様にする
と言うだけでこの通り全く分からない状態です
そんなのより各シートにインデックス番号を
シート内の固定場所に
振っていくほうが手っ取り早いんじゃないの？
若しくは管理用シートを別に用意するとか手段はいくらでもある
↑
私もインデックスを固定して操作する方が確実だとは思うのですがシートの並び替えだけを禁止すると言う理解でよろしいでしょうか？ >>974
いや、ちょっと勘違いしているね
平易に言うと、自分で作った通し番号を各シートの固定場所に記載するってこと。
シートの並び順はもはや関係なくなる
具体的には、一番最初のシートには使ってないセルに「1」を振る
次に新しいシートを作るときは
for each 変数名 in thisworkbook.worksheets
でブック内全シートの番号を降った場所を検索して
一番大きな番号を取得
その取得した番号の次の番号を新しいシートに振る
これでいつでも最新シートを更新出来るようになる こないだの奴だろ？ わかったつもりでいても、実装には難儀する気がする
そもそも要件と、それをまかなう仕様がなんかまちがってる気がしてならない
古いSheetと新しいSheetで違う値のセルをハイライト
で、その新しいSheetは明日には古いSheetに成るんじゃないのか？ハイライトする意味は？
ひとつのブックをみんなで寄ってたかって編集してるのか？ で、制作物は最終的にひとつなのか大量にあるのか
古くなったSheetはもう不要なのか、いつか参照するのか ブック内でどんどんSheetが増えていくのか その頻度は
書ける範囲で業種とか業務とかの概略を書いた方が結果的に近道な気がする 気がするだけだけど
その用途ならこうした方がいいぞ というアドバイスも出てきそうだし 適当な人間が使ってるものを深く考えずに何とかしようとしてるだけだから仕方なくね
ぶっちゃけこんな感じなるなら別のブックにマクロいれて
ファイル名、変更前シート、変更後シート
あたりを入力して変更後シートの変更箇所に色塗りするってマクロ作った方がいいんじゃねと思うわ
そもそも勝手にシート増やされたとしてそのシートが番号振ってあるシートだったら破綻するだろ？ >>978
シートを手動でコピーされるかあるいは新しいシートを挿入されたら終わり
確かにその通りでした
やはり浅はかでした
どうにもシートの保護などは禁止らしく、他のブックで比較するのも禁止らしいです
では最終手段として一番新しいシートを一番右に、その前のバージョンのシートをその左に手動で並べて右と左で比較するコードをと提案しましたが必要を理解してもらえませんでした 個人的にはマクロが登録されているボタンを押して作成している限りにおいては正しい動作が行われるで満足なのでセルに数字を入力してシートを指定する案で終わります 誰もマクロを触れない部署で全く新しいアプローチでツールを作ってくれと言われて
今月の残業時間40Hだが全部vbaに費やしてる
まだ試作だけど部長に糞誉められた
いやでも会心の出来かも
デバックエラーが絶対起きないようにあらゆる想定をしてユーザーフォームのボタンに込めた ちなみに当の本人は「サンプルシートに記入した人がいる、キチガイやろ？」と言っていました
私はそれはシートの保護をせず、入力ができるからでは？入力ができる以上、そう言う操作を行う人が居るのは当然なのでは？入力するべきではないシートだとわかりにくいからでは？と思いました。
そして人の悪口を言うのを辞めようと思いました。 >>982
こういう年収低い奴はやたら攻撃的だな
格差社会の弊害がここに 常に煽り口調なレス怖いですね
低年収なら仕方ない…のか？
それこそチラシの裏に社会への不満書くのがいいかと 書いてる内容で年収わかるなんてすごいですね
そもそもここは質問スレなんだから質問とその回答以外を書く方がおかしくね
>>981はもしかしたら質問かもしれないから念のため>>982の回答をしてみたんだが すごいだろ
でも書いてる内容見りゃお前が間違いなく底辺なのがわかっちゃうんよ
それを回答と言ってる時点で知能指数もしれてるわな 同年代の年収の平均値・中央値よりもぜんぜん上だけどまあ言わせておくよｗ
>>988
ほんとその通りな
ワッチョイありの頃はそれなりに回ってたけどワッチョイなしで立てたクソ野郎のせいで
VBA質問スレは無関係のことしか書かないカスみたいなやつのたまり場になっちまったわ >>989
ワ有りと無しは同時に存在することが許されるし
ワ有りスレもあるのにここに居続けてるのは自身の選択だろとしか とりあえず納得するものが作れたと思います
少なくとも自分がどんな操作も受け付けるマクロやブックを作っておきながらそれを使用する人に対してキチガイという人には負けたくありません 平均値中央値よりもぜんぜん上
こんなこっぱずかしいレスをネットで久しく見た 必要な操作をできる人、理解している人が行う
とか
シートを保護する
とか
そう言う事は禁止らしいんですよ
どうしても理解度がバラバラの作業者にやらせたいらしいです きっと記入例シートに みほん とデカデカと透かし図を貼り付ける事も シートを保護する事も禁止なんだと思います じゃあ次スレはﾜｯﾁｮｲ有りにすればええやん
今がチャンスだぞ いやワッチョイスレあるから
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/
ダメなら立てなきゃいいんじゃないの？ この間の銃殺事件があってもまだ誹謗中傷を続けるの？ このスレを立てた爺の正体
↓
掲示板でのケンカが孤独感を薄めてくれる
零細企業勤めで結婚もしておらず、交流する友人もいないが、「ネットが趣味なのが救いだ」と話す。
「掲示板サイトに書き込んだり、VBAはわかりませんが、日本語ワープロに詳しいと自慢したり、チャットGPTを使ったり……いい話し相手になってくれるんですよ。たまに掲示板でケンカもしちゃうんですが、それが孤独感を薄めてくれているのかもしれませんね」
ネット書き込みの裏には孤独を抱えた高齢者の姿がある。
―［中高年［貧困と孤独］の実態］― このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 122日 16時間 7分 19秒 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php レス数が1000を超えています。これ以上書き込みはできません。
