Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)

1 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd92-oKFl) mailto:sage [2023/11/24(金) 20:41:50.46 ID:hbrpz6MLd.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑同じ内容を3行貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part77 https://mevius.2ch.net/test/read.cgi/tech/1658009255/ Excel VBA 質問スレ Part78 https://mevius.2ch.net/test/read.cgi/tech/1667104996/ Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり) https://mevius.5ch.net/test/read.cgi/tech/1674875532/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 52 名前：デフォルトの名無しさん mailto:sage [2024/04/09(火) 14:44:25.19 ID:EBugvdEwM.net] >>47 Sub 全自動で表を作るMacro1() 　　Dim da As Date 　　da = "1/1"　'この日からスタート 　　ro = 2 　　For we = 1 To 52　'52週間分作る 　　　　Cells(ro, 3).Resize(1, 3) = Array("a", "b", "c") 　　　　For lo = 1 To 7 　　　　　　Cells(ro + lo, 2) = da 　　　　　　da = da + 1 　　　　Next 　　　　Set ra = Cells(ro, 2).Resize(8, 4) 　　　　ra.Borders(xlEdgeLeft).LineStyle = xlContinuous 　　　　ra.Borders(xlEdgeLeft).Weight = xlMedium 　　　　ra.Borders(xlEdgeRight).LineStyle = xlContinuous 　　　　ra.Borders(xlEdgeRight).Weight = xlMedium 　　　　ra.Borders(xlEdgeTop).LineStyle = xlContinuous 　　　　ra.Borders(xlEdgeTop).Weight = xlMedium 　　　　ra.Borders(xlEdgeBottom).LineStyle = xlContinuous 　　　　ra.Borders(xlEdgeBottom).Weight = xlMedium 　　　　ra.Borders(xlInsideVertical).LineStyle = xlContinuous 　　　　ra.Borders(xlInsideVertical).Weight = xlMedium 　　　　ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous 　　　　ra.Borders(xlInsideHorizontal).Weight = xlMedium 　　　　ro = ro + 8 　　Next 　　Range("B:B").Font.Name = "ＭＳ 明朝" 　　Range("C:E").Font.Name = "ＭＳ ゴシック" 　　Range("B:E").Font.Bold = True 　　Range("B:B").NumberFormatLocal = "m月d日 (aaa)" End Sub 53 名前：デフォルトの名無しさん mailto:sage [2024/04/09(火) 15:00:14.82 ID:CNAyRCwJM.net] >>52 ありがとうございます。大変申し訳ありません。 54 名前：デフォルトの名無しさん mailto:sage [2024/04/09(火) 16:35:36.48 ID:CNAyRCwJM.net] >>52 すみません。これでも大丈夫ですがマクロ1回実行するごとに７日分つくりたいです。わがまますみません。 55 名前：デフォルトの名無しさん mailto:sage [2024/04/09(火) 17:25:50.64 ID:GvF1xxBu0.net] >>54 Sub 一週間ずつコピペ追加Macro1() 　　ro = Cells(Rows.Count, 2).End(xlUp).Row 　　Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2) 　　For Each c In Cells(ro + 2, 2).Resize(7, 1) 　　　　c.Value = c + 7 　　Next 　　Columns("B").AutoFit End Sub 56 名前：デフォルトの名無しさん mailto:sage [2024/04/09(火) 17:44:22.55 ID:CNAyRCwJM.net] >>55 ありがとうございます！助かりました 57 名前：デフォルトの名無しさん mailto:sage [2024/05/14(火) 11:08:08.44 ID:4ur2uort0.net] ワークシート上で使うつもりの関数についてですが Function で関数を作る場合に ワークシートのsum関数のように、「開始セル：終端セル」で範囲指定したものを 引数として渡すにはどのように書けばいいでしょうか？ Fuction Nmame（ここにどう書けば・・・）　as　Ingteger という意味です 58 名前：デフォルトの名無しさん mailto:sage [2024/05/14(火) 12:42:16.58 ID:kD3ns+u20.net] >>57 例 Function Nmame(セル範囲 As Range) As Integer 　　Nmame = WorksheetFunction.Sum(セル範囲) End Function 59 名前：57 mailto:sage [2024/05/14(火) 14:38:27.21 ID:w6s7TkHo0.net] >>58 ありがとうございます 様子がわかりました 60 名前：デフォルトの名無しさん mailto:sage [2024/05/15(水) 02:47:04.16 ID:m8dxiqQg0.net] WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。 61 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0eda-UQRA) mailto:sage [2024/05/20(月) 19:11:18.88 ID:7XMc72u80.net] たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ 62 名前： mailto:sage [2024/05/21(火) 10:21:01.62 ID:KUESjums0.net] WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな SequenceとXlookupはたまに使う 63 名前：デフォルトの名無しさん mailto:sage [2024/08/19(月) 12:24:22.85 ID:r5bjtZ4H0.net] >>62 そのままベタで書いてない？ Set wf = WorksheetFunction n = wf.Vlookup(以下略 みたいにすれば式が長くて読みづらいのはだいぶ改善されるけど 64 名前：デフォルトの名無しさん mailto:sage [2024/08/19(月) 13:00:42.46 ID:0FLHd/HT0.net] object変数使うのとwith句どっちにするか悩む 65 名前：デフォルトの名無しさん mailto:sage [2024/08/21(水) 16:25:00.16 ID:p6R299lZ0.net] まーあまり使う機会が無いからね 今パッと思いつくのでも銀行丸めでない四捨五入くらい 66 名前：デフォルトの名無しさん mailto:sage [2024/08/21(水) 21:12:32.10 ID:imFiEHqt0.net] wFuncと書くかな王道のキャメルネームってヤツで 67 名前：デフォルトの名無しさん mailto:sage [2024/08/21(水) 21:32:45.54 ID:mP9N7y9+0.net] functionの省略形はFn キートップの表記もそうなってるし 68 名前：デフォルトの名無しさん mailto:sage [2024/08/21(水) 21:39:19.62 ID:9O1swhs+d.net] キートップでいうならほとんどのキーボードはFだよ F1～F12のF 69 名前：デフォルトの名無しさん mailto:sage [2024/08/22(木) 19:14:36.54 ID:4iA6d+k70.net] なるほど、fnを変数名もありだね 短くて分かりやすいのがベスト 70 名前：デフォルトの名無しさん mailto:sage [2024/08/22(木) 20:47:55.78 ID:2kUwH3KZ0.net] >>68 そのパターンだと、続く数字がないと、F だけじゃ意味を認識できにくくないかな？ VBAと同じ祖先のN88-BASICにDEF FN()っていうステートメントがあったぐらいだし、Fnあたりが無難じゃないかなあと 71 名前：デフォルトの名無しさん mailto:sage [2024/08/22(木) 21:40:22.16 ID:4iA6d+k70.net] 変数名悩むよいつも 72 名前：デフォルトの名無しさん mailto:sage [2024/08/24(土) 06:52:44.35 ID:BUiu5a090.net] wFuckでいいんじゃね 73 名前：デフォルトの名無しさん mailto:sage [2024/08/24(土) 15:53:04.39 ID:9/zXA2VM0.net] それもありだね 何となく意味が分かる変数名がベスト 74 名前：デフォルトの名無しさん mailto:sage [2024/09/03(火) 11:47:24.62 ID:RHXywGfU0.net] 20種類前後の機材があり、1部屋につき5～10種使っていて、全部で50部屋程度ある 部屋毎に以下の内容を記載したシートを作らないといけない(機材名　サイズ　台数)というのが定期的にあり 現在は(部屋番号a　部屋名)と(部屋番号b　機材名　サイズ　台数)の一覧シートを作って For 部屋番号=2 to 部屋番号bmax 部屋番号a=部屋番号b *転記 といった形のマクロを使用しているのですが いちいち機材名等をコピペするのが手前なので(機材名　サイズ　台数　部屋番号b1 b2…)のシートを作って部屋番号a=b1*転記、a=b2*転記みたいにしたいです ただ、私の知識だと判定と転記の行を増やすくらいしか思い付かず、スッキリとした形にできるのでしょうか 75 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f41-RGwf) mailto:sage [2024/09/03(火) 16:38:51.21 ID:UjP0155+0.net] すいません自己解決しました 76 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fdb-nMrU) [2024/09/05(木) 12:36:06.75 ID:z+pIceuZ0.net] 雑魚解決 77 名前：デフォルトの名無しさん [2024/12/05(木) 14:41:34.90 ID:BRiCmyxP0.net] B1:D1が全てTRUEの時、◯を違う時×を表示するという具合の関数を組みたいのですが何を使えばいいのでしょうか？ 78 名前：デフォルトの名無しさん [2024/12/05(木) 14:48:46.36 ID:2LNpfkRJa.net] lookup vlookup 79 名前：デフォルトの名無しさん mailto:sage [2024/12/05(木) 15:13:00.67 ID:BvdDuGAN0.net] =IF(COUNTIF(B1:D1,TRUE)=3,”◯”,”×”) 80 名前：デフォルトの名無しさん mailto:sage [2024/12/05(木) 16:43:15.56 ID:e2kHlQPe0.net] =IF(AND(B1:D1),"○","×") 81 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 18f8-RZe5) mailto:sage [2024/12/05(木) 19:34:08.56 ID:8QbKq8w50.net] VBAスレだからworksheetfunctionって明示しないと 82 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ acce-WFUB) mailto:sage [2024/12/05(木) 21:20:09.22 ID:7iZ97EoX0.net] = Mid("◯×", Range("B1") * Range("C1") * Range("D1") + 2, 1) 83 名前：デフォルトの名無しさん mailto:sage [2024/12/07(土) 08:22:31.23 ID:m++O9Thl0.net] >>77 頭を使ったほうが良いと思う 84 名前：デフォルトの名無しさん mailto:sage [2024/12/07(土) 18:22:33.39 ID:FGUnkbhB0.net] ここに来るのは、頭だけは絶対に使わない人達 85 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0e62-jXfH) mailto:sage [2024/12/07(土) 20:46:46.78 ID:5zqnWiz30.net] ポコポコヘッドを覚えてから質問して来い？ 86 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f4d-RZe5) mailto:sage [2024/12/07(土) 21:35:52.97 ID:5P3CnKiu0.net] >>84 よう馬鹿！ 87 名前：デフォルトの名無しさん mailto:sage [2024/12/09(月) 11:28:21.48 ID:WZWOgPIq0.net] うんこ 88 名前：デフォルトの名無しさん [2025/01/23(木) 21:39:17.03 ID:L52ALlnW0.net] カレー 89 名前：デフォルトの名無しさん [2025/06/10(火) 22:29:47.99 ID:chtn5cci0.net] 今どきのCONTINUEと同じように使えるのが goto CONTINUE方式 90 名前：デフォルトの名無しさん mailto:age [2025/06/11(水) 17:06:06.79 ID:KpaZiopI0.net] ﾜｯﾁｮｲありのがええんやで 91 名前：デフォルトの名無しさん [2025/06/15(日) 12:04:33.82 ID:VWehYNCSa.net] 無の方は荒らされてるな 92 名前：デフォルトの名無しさん [2025/06/15(日) 16:04:36.12 ID:iEbH+tZ40.net] バカが騒いでるだけ わざわざ私バカですって手を挙げて出てくるのが面白い、本人がわかってなくてw 93 名前：デフォルトの名無しさん mailto:sage [2025/06/15(日) 23:58:19.79 ID:K8AqenHf0.net] VBAスレ2つあったの今知ったわw 94 名前：デフォルトの名無しさん mailto:sage [2025/06/16(月) 07:54:22.50 ID:ibaltNjp0.net] >>92 わかってる奴は質問スレ使う理由ないんだから、 質問スレでマウント取る奴ってそのために質問スレに書き込むバカでしかないんだよな 疑問の解決に寄与するならまだしも的外れなこと言ってる奴もいるし 95 名前：デフォルトの名無しさん mailto:sage [2025/06/16(月) 13:10:13.94 ID:Mgfu6kwT0.net] 昔から言われてるでしょ 「バカって言うやつが本当のバカ」 96 名前：デフォルトの名無しさん [2025/06/16(月) 21:13:13.73 ID:jCyEwpBS0.net] >>95 昔から言われてるでしょ それ言ってるのはバカしかいないと 97 名前：デフォルトの名無しさん mailto:sage [2025/06/17(火) 18:43:01.81 ID:XfPfRxIO0.net] 昔から言われてるのは、5ちゃんねるに書き込んでる事自体馬鹿ってヤツ 98 名前：デフォルトの名無しさん [2025/06/17(火) 19:14:09.68 ID:ebkbzKcj0.net] それは否定できねぇなあ 99 名前：デフォルトの名無しさん [2025/06/17(火) 20:52:08.20 ID:87w8cuvY0.net] 踊る阿呆に見る阿呆、同じ阿呆なら踊らにゃ損損 100 名前：デフォルトの名無しさん [2025/06/20(金) 21:29:26.25 ID:sV38LovV0.net] アホちゃいまんねんパーでんねん 101 名前：デフォルトの名無しさん [2025/06/22(日) 11:13:20.67 ID:pDLda+7Na.net] シットルケ

---

---

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

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