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