Excel VBA 質問スレ Part79

1 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 11:46:47.21 ID:mBQ16TA8.net] ↑同じ内容を3行貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part77 https://mevius.5ch.net/test/read.cgi/tech/1658009255/ Excel VBA 質問スレ Part78 https://mevius.5ch.net/test/read.cgi/tech/1667104996/ - VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 237 名前：デフォルトの名無しさん [2023/02/26(日) 01:36:14.44 ID:tp9OjsHC.net] >>231 これをバグだと思うお前の頭がおかしい 238 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 05:06:33.26 ID:eudL/KWJ.net] >>230 あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。 社会に出ればこんなの当たり前だから。 人よりも仕事は早くこなして次のタスクを行う。 そうやって「評価」というものを受け取れるんだよ。 239 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 08:24:55.67 ID:ohKfmJY8.net] >>230 処世術を知らんのか 240 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 08:53:33.45 ID:eudL/KWJ.net] 相手しない方が良いよ。 何せ社会を知らない奴なんだから。 241 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 14:38:38.79 ID:3Cr/hlVm.net] >>234 自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。 仕事は自分で見つけるもんやで？ そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん 242 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 16:26:56.12 ID:eudL/KWJ.net] 本当に社会知らないんだな？ >>237 自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」 て言われるのが社会なんだよ。 良く覚えとけよ。 243 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 21:51:00.91 ID:fkbOU0Ua.net] >>216 今日になって気付いた 戻り値は4バイト整数だったごめん… 244 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 15:08:20.31 ID:NXRHGwBO.net] >>238 世渡り上手で仕事せずともいられるって人もいるけどな 前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、 こういう漫画みたいな人いるんだなーと思った レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか 245 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 16:02:16.29 ID:chlNPmFa.net] すげえww罪悪感のカケラもないその神経を見習いたいわ。 まあ、環境にもよるんだろうね。 自分の職場はみなクッソ真面目の堅物ばかり。 246 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 16:07:15.89 ID:YzUXpdVm.net] そんな人がこんなスレ訪問するはず無いだろ　そんなヒマあったらサボってる 247 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 03:52:23.34 ID:wSjrNglr.net] ヒマがあったらサボってる？ 普通に考えればサボっているからヒマになるのでは？ 248 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 06:53:32.06 ID:J6gUWTNI.net] お、おう。 249 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 11:19:20.68 ID:iwViG7Fn.net] せめてヒマの意味調べようよ　意味も知らずに話ししてんのか　そりゃあ、話し掛けられた相手も困惑することだろうに 250 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 02:31:42.07 ID:LaDEEyjy.net] に ほ ん ご ほ う か い 251 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 07:47:29.44 ID:E3REpsyj.net] まったく最近の老害ときたら… 252 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 12:40:49.00 ID:/y/rr2Lo.net] 逆に若い方が間違った日本語を平気で使ってるよ 勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね 253 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 15:00:36.88 ID:LaDEEyjy.net] いや、最近の若いのは分別しっかりしているでしょ。 年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？ 254 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 15:14:44.70 ID:an7QtCXR.net] 老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる 255 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 18:54:13.51 ID:/y/rr2Lo.net] 政治家の老害の方が酷いから社内で経験のある定年前のおっさん程度なら気にならんよ 256 名前：デフォルトの名無しさん mailto:sage [2023/03/03(金) 23:49:56.23 ID:k/H9X4nF.net] 若者はとか年寄りはという括りで決めてしまうことに何の疑問も持たないのが不思議でな 解ってて話しているならいいけど本気で言ってそう 257 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 07:57:41.77 ID:8//TjMOu.net] 若者だろうが年寄りだろうが関係なくね？ 若者でもダメなヤツはダメだし年寄りでもめっちゃリスペクトできる人もいるしな。 258 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 13:24:30.21 ID:HiKr/1U9.net] 普段何を見て育ってきたかが違いすぎて関係ないなんてことはないと思うなあ 259 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 14:32:34.86 ID:nF/g30df.net] 周りにダメな奴がいてダメでない奴もいるとして その中で自分がダメな奴と一緒になるのか、ダメにならない様に努力するのかが重要になってくる それと明らかに攻撃してくる相手なら敵と認識して反撃もやむをえない 260 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 15:11:12.05 ID:8//TjMOu.net] 悪かった 年寄りで１番タチ悪いクセは、大人しいタイプで反抗してこない若者をいじめるクセがあるのは何回も見ている。 それはダメだわな。 261 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 15:37:01.51 ID:z+cjlQY2.net] ここは>>1がじぶんのために立てたスレッドだが、彼は仕事が出来ないのがバレてクビに成ったのか？ 丸々一ヶ月音信不通だが　本を一所懸命に読んでる真っ最中なのか？ 262 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 19:52:37.48 ID:nF/g30df.net] >>256 与党が少数意見を無視して増税してきたのは何回も見ている 見ているだけだから問題ないのかな？ 263 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 21:46:53.40 ID:h6QEfyIh.net] ここ何のスレだっけ 264 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 03:17:25.93 ID:d3m+m4y0.net] >>259 クソスレ 265 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 17:06:46.67 ID:vENEE6dG.net] 985 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 11:47:07.68 ID:mBQ16TA8r [9/9] はい建てた Excel VBA 質問スレ Part79 https://mevius.5ch.net/test/read.cgi/tech/1674874007/ 996 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b01-hj3w)[sage] 投稿日：2023/01/28(土) 12:09:25.98 ID:NqcfPhRT0 [5/6] To: 各位 無能の働き者がワッチョイ無しで次スレ立てちまったんだがどうする？ ワッチョイありで立て直す？ 997 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV)[sage] 投稿日：2023/01/28(土) 12:10:22.95 ID:XR4zA44Nr [7/8] >>996 俺のAIが自動的に削除してたわw 266 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 01:00:13.14 ID:1WgjQ7Bk.net] そのうちここもあぼーんの嵐になるわさ 267 名前：あはーん [2023/03/08(水) 20:49:17.55 ID:szyRCS8l.net] あはーん 268 名前：デフォルトの名無しさん mailto:sage [2023/03/09(木) 00:30:01.95 ID:D1VDY6UW.net] おぼーん 269 名前：150 mailto:sage [2023/03/10(金) 12:55:22.35 ID:QfDmbcex.net] =if(isnumber(match(b1,a5:a31,0)),"ok","bad") これをVBAで実現するにはどうすればいいか教えて欲しいです 270 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 20:00:52.25 ID:eEaylvqx.net] >>265 その式で希望通りの結果ならそのままのほうがいいよ 271 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 20:37:16.92 ID:iWPdLzMM.net] わざわざVBAでやる必要ないモノは関数で良いしね 272 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 21:01:29.17 ID:WMCxZwMq.net] worksheetfunctionで済むならその方がいいよ 最終的に実現したい方法を教えてくれるか それとも単純にvbaでどうなるか知りたいかならそういってもらえれば 273 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 21:50:33.66 ID:IaGJxF6U.net] ChatGPTへ条件を指定するの難しい・・・ 日本語が下手で嫌になる 分かりやすいサイトとかyoutubeチャンネルとかある？ 274 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 22:56:34.60 ID:WMCxZwMq.net] >>269 日本語が下手ならchatgptに推敲してもらえばいい ってかそもそもChatGPTはそもそもコード生成向いていない ChatGPTのエンジンはgpt-3 本当にコード生成に向いているエンジンはcodex 275 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 04:47:16.82 ID:ZWvVNp1O.net] ChatGptが作ったコード、なかなかいい感じだが 276 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 14:42:28.64 ID:SdsqzSUo.net] 使いたければ使っていればいい、よそのスレで宣伝する必要なくね 277 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 15:31:38.67 ID:QVD3K1L3.net] ここは1000行ったらもうそれっきりのスレだから　雑談してりゃいいんだ 278 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 17:37:12.30 ID:GdTACZTW.net] VBAコードをカラー印刷する方法はありますか？ パソコンで見ると目が疲れるし、気付きにくいこともあるので紙で見たいのです。 279 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 17:59:17.42 ID:QVD3K1L3.net] やれやれ https://forest.watch.impress.co.jp/docs/news/609605.html おまけ https://excelshogikan.com/tips/tips115.html もひとつ https://tonari-it.com/excel-vba-vbe-syntax-highlight/ もいっちょ https://koukimra.com/archives/545 なんか、いっぱい出て来る https://excel.syogyoumujou.com/freesoft/vba_to_html.html VBEの[ツール]－[オプション]－[エディタの設定]でも、フォントを濃い色にしとかないと印刷しても薄っすいだろうけど それすると今度は画面がギラついて目に優しくない状況に陥ったりするだろうし　いろいろ試して自分の好みで 280 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 20:46:11.23 ID:GdTACZTW.net] >>275 たくさん貼っていただきありがとうございます。 2番目のツールはHTML化で変換出来なかったんですよね。 最後のアドインのだけカラーで出来るようなのでこちらを使ってみます。 281 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 20:32:20.84 ID:VmVu1UJJ.net] ChatGPTにVBAでこんな感じに出来ませんか？と質問するとしっかりとしたコードを書いてくれる 282 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 21:20:54.07 ID:pwuv7WPr.net] Chatgptが普及すれば初級者とか関係なく誰でも高度な事ができるようになるよね。 もはや「Excelできまーす！高度なコード書けまーす！」が通用しなくなる時代が来つつあるな。 283 名前：デフォルトの名無しさん mailto:sage [2023/03/13(月) 21:34:37.42 ID:rU40dayx.net] このスレのスレ立て人ディスってんのか？ Excelできます枠で中途入社しときながら、まるきしわからんちんでExcel VBAスレに泣き付いて 質問をキッカケに主人公にでも成ったかのような勘違いしてこの無駄スレ立ててしまった伝説のあいつを？ 284 名前：デフォルトの名無しさん [2023/03/13(月) 21:35:17.25 ID:+WoIzVW7.net] 零細企業のVBAすら書けない無能には間違いがあってもわからんだろうがな 285 名前：デフォルトの名無しさん [2023/03/14(火) 12:24:47.61 ID:LCy+s25l.net] これからはリストラが大量に出るだろうね エクセルの先生()からプログラマー()までPCとにらめっこする仕事は全部ChatGPTで済む虚業ってバレたんだから 286 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 12:37:28.99 ID:goR8feNU.net] そう思い込むことで、カキコ本人にはどんなメリットがあるんだ？ 個人の感想でしかないものにすがるしか、自我を保てないンか？ そんなメンタルならExcel使う事を辞めた方がいいぞ？ そんな得体の知れないものに頼らざるを得ない企業も長続きはしなくなるだろ 会議の席にAI同席させるンか？ 287 名前：デフォルトの名無しさん [2023/03/14(火) 12:47:00.26 ID:LCy+s25l.net] AIに任せるようになった企業が長続きしないというのはそちらの感想だよね 会議にAIも参加させられない企業と会議にAIが参加できる企業のどちらに柔軟性があるかは明白 288 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 12:51:49.78 ID:IeRCsjIL.net] AIも道具の一つに過ぎない 289 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:06:56.83 ID:goR8feNU.net] 長年いろんな企業を見てきた経験からだ　個人の感想じゃねえ マンパワーの重要性を認識できない上の方が居たら、大抵足許から崩れてく 会議の席でAIが「できます」っつったら任せるのか？それでコケた場合誰が責任取るんだ？ 絵空事夢見て妄想に浸るのは勝手だが、企業もいきもの　維持し続けるための道具としてなら 使いたきゃ使えばいいが、病んだ時のリカバリーにはどうしても人の手は必要（当面は） 例えば、悪天候で電車止まった、架線が切れたようだ　四六時中稼働できる修理ロボットの出番だ！　なんて時代はまだまだ先 必死でそういう時代が来るよう努力し続けるのは否定しないが、どうせそうなるんだから今から仕事放棄　は、ただのあほう 290 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:27:13.02 ID:ZglUMoKm.net] 理性的に考えれば今の時代は暗黒だから冷凍人間にでもなって輝かしい未来に解凍してもらうのが正解 291 名前：デフォルトの名無しさん [2023/03/14(火) 13:30:38.03 ID:LCy+s25l.net] 今置き換えられるのはPCとにらめっこする仕事って限定してるんだが 勝手に読み替えられても困る 292 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 13:49:04.92 ID:2BnTQRjU.net] これだけは言える そこらの並のPC教室や素人に毛が生えたインストラクター(笑)は間違いなく淘汰される。 293 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 14:25:56.84 ID:28TiEHhw.net] こちらでよろしいでしょうか。すみません。 エクセルで、 「ＳＵＭ関数」かつ「０が表示」のセルを、 選択する事は可能でしょうか。 294 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 16:50:49.76 ID:goR8feNU.net] [ホーム]タブにある「検索と選択」で、検索をクリックして、検索する文字列に SUM ではダメなのか？ [ファイル]の[オプション]、[詳細設定]で □ ゼロ値のセルにゼロを表示する(Z)のチェックに限らず =SUM( のセルを次々選択してくれるが？　"かつ" の条件を満たさないとどうしてもイヤ！なのか？ Sheetの至る所に＝SUM( がありまくりで絞り込みたいとか？　「0が表示」という日本語も変だけど [オプション]での設定はBook全部に影響したと思うのだが 295 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 17:40:35.43 ID:+v1A3gMG.net] >>285 経験なんて個人の感想の寄せ集めだぞ 同レベルの概念とわかってない時点で論外、やり直し 296 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 18:40:07.15 ID:1O8NxYp2.net] >>289 フィルタで0を指定してからsumで検索すれば行けそう 297 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 19:37:13.34 ID:28TiEHhw.net] >>290様 仕事で、料理の数の合計を出しています。料理の数の入力が ないセルは「空白」ですから、選択オプションで「空白セル」を チェックし、「空白のセル（列）」をすべて非表示にできました。 最後は、自動で「ＳＵＭ関数」かつ「（合計が）０の表示」のセルを 選択し、セル（列）を非表示にしたいのです。手動でやれよって話 かもしれませんが、マクロで自動化ってできるものなのでしょうか。 298 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:05:55.83 ID:28TiEHhw.net] >>292様 >>フィルタで0を指定してからsumで検索すれば行けそう 確認しました。列にならできると思います。しかし、 行方向のセルにフィルタをかける事はできませんでした。 行の一定の範囲のセルを選択したいです。行にフィルタを かける事はできませんでした。行と列を入れ替えて、列に フィルタをかけ、最後に行と列を入れ替えたらよいですか。 299 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:38:11.33 ID:8uN0bEAR.net] >>289 各列の1行目にsum関数があるとして、 その合計が0ならその列を非表示にするというマクロならこんな感じか。 (データがどこまであるかわからんからとりあえずA列からF列までを対象にしてる)。 Sub 列を非表示() Dim i As Long For i = 1 To 6 If Cells(1, i) = 0 And Cells(1, i).HasFormula = True Then Columns(i).EntireColumn.Hidden = True End If Next i End Sub sum関数かどうかまでは判定していないから sum関数以外の関数が入っていてその値が0なら その列も非表示になる。 後はどのセルに関数が入っているかわからんから そこらへんは調整してくれ。 300 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:42:07.34 ID:goR8feNU.net] セルを非表示　という書き方が戸惑う元だけど >>290 の二行目に書いた　Sheet上の0の値を[0]表示させない方法ではダメなのか？ SUMの結果が0のケースでも、0とは表示されず空白になるんだが？ セルの書式設定で ;;; にすることでセルの非表示ということらしいが、結果は変わるのか？ 手元のExcelで試しているけど、どういう結果が欲しいのか分からんから戸惑ってる わざわざ空白セルも非表示にする必要がさっぱりわからん　背景色とかが絡んで来る？　印刷時？ 301 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 20:51:19.35 ID:28TiEHhw.net] >>295様 これが具体的なＶＢＡコードですね！ありがとうございます。 説明不足でややこしくてすみません。 とりあえず、本やネットを見ながらコードを参考にし、実践 してみようと思います。皆様ありがとうございました。 302 名前：デフォルトの名無しさん mailto:sage [2023/03/14(火) 21:06:36.93 ID:28TiEHhw.net] >>296様 おっしゃる通りで、表示させない方法で空白になりました。;;を使っても０が表示されず、 空白になります。この状態で、行の一定の範囲を選択して、選択オプションで「空白セル」 にチェックを入れます。しかし、「ＳＵＭ関数かつ空白」が選択されず、列を非表示に できません。ＳＵＭ関数があると空白と認識されないようです。 >>わざわざ空白セルも非表示にする必要がさっぱりわからん　印刷時？ おっしゃる通りです。空白のセル（列）を非表示にし、印刷しないためです。 303 名前：デフォルトの名無しさん [2023/03/14(火) 23:37:15.42 ID:WthbhZLX.net] 聞く方も答える方も馬鹿で頭が痛くなる このスレを立てた奴の頭のレベルの程度のせいか？ 304 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 00:01:55.44 ID:Ogi5eYUO.net] >>299みたいなのが賢いムーブなんですね、参考になります 305 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 07:40:00.44 ID:dWb1Fnpz.net] 送られてきたEXCELファイルの特定のセルにある文字列や数値を別のブックにある表シート(特定のセル)に反映させてデータを自動集計したい。 この場合どのようなコードが必要ですか？ 306 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 10:52:57.27 ID:bng7Ef1J.net] >>299 なぜ馬鹿の質問に馬鹿が答えてるのを見るとお前の頭が痛くなるのか因果関係を説明せよ >>301 全然わからないならあきらめるか、初心者向けの本でも読んでもう少し自力でできるようになってからだな 307 名前：デフォルトの名無しさん [2023/03/15(水) 12:05:57.01 ID:VvC5BQRV.net] >>301 そういうのは今はChatGPTに聞いた方が早いかと。 その質問をそのままコピペ、VBAのコードでと聞いたらこんな風に返ってきた。 VBAを使用して、Excelファイルから特定のセルの値を抽出し、別のブックにある特定のセルに値を反映させるには、以下のようなコードを使用できます。 Sub copyCellValue() Dim srcBook As Workbook Dim destBook As Workbook Dim srcSheet As Worksheet Dim destSheet As Worksheet Dim srcRange As Range Dim destRange As Range 'コピー元のブック、シート、セルを指定 Set srcBook = Workbooks.Open("path/to/source_file.xlsx") Set srcSheet = srcBook.Worksheets("Sheet1") Set srcRange = srcSheet.Range("A1") 'コピー先のブック、シート、セルを指定 Set destBook = Workbooks.Open("path/to/destination_file.xlsx") Set destSheet = destBook.Worksheets("Sheet1") Set destRange = destSheet.Range("B2") 'コピー元のセルの値をコピー先のセルに反映 destRange.Value = srcRange.Value 'ブックを閉じる srcBook.Close destBook.Close End Sub 308 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 13:19:10.47 ID:jS5g/06S.net] chatGPTの亜流がどんどんでてきたな https://ronpagpt.jp/ 309 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 14:24:15.02 ID:/7ImdP24.net] >>303　AIはすごいね　AIはさすがだよ　AIにその回答を導き出させた>>303はもっとすごい 310 名前：デフォルトの名無しさん [2023/03/15(水) 17:36:50.88 ID:d5qN4lxo.net] >>305 要件を満たしていないだろ お前、このスレを立てた零細企業のバカだろ 311 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 18:04:03.00 ID:/7ImdP24.net] いや、AIはすごいんだって　だってたちどころに回答するんだぜ？ どんな難問投げ掛けられたって、おちゃのこさいさいで即座にだよ？すごいじゃないか やっぱAIには敵わないね　でもそのAIを容易に使いこなせる>>303は、ほんとすごいんだよ こかれらもこまったことがおきたらぜんぶ>>303にそうだんすればいいよ　ぜんぶアッ！といまうだよ >>303そこがかみだよだってAIあつやれるんだのもきとっすいごおきゅりうょうもっらてんるだろ 312 名前：デフォルトの名無しさん [2023/03/15(水) 18:41:01.53 ID:X44VfF2/.net] やっぱり零細企業の馬鹿本人かよ 313 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 19:56:07.69 ID:cZ1DNOu4.net] >>296様　皆様 やっと「ＳＵＭ関数かつ０が表示」を選択する事が できました!!!これでムダな列を自動的に非表示にできます。 �@一定の範囲のセルを選択　�A検索で「０」の値を検索 �B検索結果をクリック　�Cctrl+Aですべてを選択　 大変お騒がせ致しました。本当にありがとうございました。 314 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 20:16:56.49 ID:/7ImdP24.net] やりたいことが分かってから意見書くのも、なんか憚られるが それ、横方向に並べ替えすれば合計欄0のだけ端っこにまとまるから、それで一気に列の非表示すればよくね？ 元データが料理の種別とかで固定だから並べ替えなんか「成りません！」てなら別だけど それでも何かを基準に左に詰めたりできそうな気がするんだが https://sakusaku-office.com/excel/post-9111/ https://webpt.jp/blog/excel/excel-across-sort/ 315 名前：デフォルトの名無しさん [2023/03/15(水) 20:47:00.15 ID:V0E4/N1Q.net] 馬鹿が考える方法は馬鹿な頭から出てくる馬鹿な方法だからまともに相手にするのが間違い 馬鹿が質問すると荒れるから迷惑 316 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 21:59:25.48 ID:jS5g/06S.net] >>307 そのAIから https://i.imgur.com/XaCp34O.png 317 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 23:05:20.69 ID:xu8ICwau.net] ジジババって最新の技術をすぐ小馬鹿にするよね？ 318 名前：デフォルトの名無しさん [2023/03/15(水) 23:58:49.40 ID:cjZorZVQ.net] 最近の馬鹿って自分が馬鹿なことに気づかないの？ 319 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 00:27:14.17 ID:434mvrOL.net] >>312 ワロス 320 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 02:07:32.51 ID:B5SNFDHd.net] さっきから何あぼーんの嵐(笑) 321 名前：デフォルトの名無しさん [2023/03/16(木) 10:36:22.46 ID:N2/NSeFa.net] 馬鹿はエントロピーが大きい状態 エントロピー増大の法則 322 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 11:33:40.43 ID:w6mQ50Ij.net] コードの保存はどうしている？ ChatGPTで色々と変更しながら書いてもらっているけど、過去のも残しておきたいが ぐちゃぐちゃになっている。 323 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 11:38:54.15 ID:6Wkwlpg5.net] そこにメモ帳があるだろ 324 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 13:04:45.51 ID:s5XEFQZu.net] >>318 毎回最初から最後まで書いてもらえばいい もう保存とかアホらしくなってきた 325 名前：デフォルトの名無しさん [2023/03/16(木) 15:49:40.74 ID:hTqOV0Oo.net] 間違えた回答をありがたく保存するのかよ 326 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 17:03:31.67 ID:pLTmwSf1.net] VBA で1を1stに変換する関数ないの？ 327 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 17:49:19.70 ID:dPl9ROvM.net] Excel VBAにはない Access VBAなら専用の関数がある 328 名前：デフォルトの名無しさん mailto:sage [2023/03/16(木) 18:00:58.62 ID:Loiq54un.net] >>322 VBAでよければ https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11156601881 ちえぶくろだけど　７年前 329 名前：デフォルトの名無しさん [2023/03/16(木) 21:12:18.58 ID:wf1v+CLj.net] >>322 ワークシート関数で出来るらしい。 =A1&IF(OR(MOD(A1,100)={11,12,13}),"th",CHOOSE(MIN(5,RIGHT(A1)+1),"th","st","nd","rd","th")) 20までならもっと簡単になるみたいで。 =A1&LOOKUP(A1,{0,1,2,3,4;"th","st","nd","rd","th"}) 上記の数式をVBAからWorksheetFunction関数で使う手も。 330 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:04:59.58 ID:Rz29PTI+.net] >>322 どこまでの値をカバーするか、どういうデータか、によっては、既に書かれているとおりワークシート関数でも事足りるよ なお本当に1を1stにするだけだったらワークシート関数のSUBSTITUTE使えばいい 331 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:17:55.87 ID:Za4MxO2H.net] 1 → 1st 11 → 1st1st 101 → 1st01st 332 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 21:57:25.24 ID:AwqZu1PH.net] スクショを貼り付けしてトリミングするまでのマクロ使ってるんですが トリミングした不要な部分を削除 を追加する事ってできますか？ 333 名前：デフォルトの名無しさん mailto:sage [2023/03/18(土) 22:53:09.64 ID:X3/sx5T9.net] マクロでやる必要ある？ 334 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 10:30:21.74 ID:fsx9oQpt.net] >>329 毎回、図のトリミング部分を削除するのが手間でマクロでやってしまいたい 335 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 11:14:17.24 ID:T5Hyor/5.net] ［Win］+［Shift］+［S］キー　とかでスクショ撮る前に切り取れば？ 　>トリミングした不要な部分を削除を追加する　というのがよく分からんが うっかり� 336 名前：gリミングしたけど元に戻したいとか？ https://itojisan.xyz/settings/25094/　キャプチャの再考も必要かも [] [ここ壊れてます] 337 名前：デフォルトの名無しさん mailto:sage [2023/03/19(日) 13:05:56.53 ID:fsx9oQpt.net] スクショするコードと下のコード繋げて貼り付けてるんだけどその後に図のトリミング部分を削除を毎回手動でやってるんだけど その手間を無くせないかなと思って Sub 貼り付け() 　Range("A6").Select ActiveSheet.Paste Application.CommandBars("Format Object").Visible = False Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.IncrementTop 126.5453543307 Selection.ShapeRange.ScaleWidth 0.5493110633, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.8437515373, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439 Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809 Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 324 Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -63 Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.IncrementLeft 28.3636220472 Selection.ShapeRange.IncrementTop 0.00007874015748 Selection.ShapeRange.ScaleWidth 0.9641379475, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.9259154745, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 1439 Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 809 Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 310 Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -37 Selection.Placement = xlFreeFloating Selection.ShapeRange.LockAspectRatio = msoTrue Range("A10").Select ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化 End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

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