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

55 ：デフォルトの名無しさん ：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 ：デフォルトの名無しさん ：2024/04/09(火) 17:44:22.55 ID:CNAyRCwJM.net

>>55
ありがとうございます！助かりました

57 ：デフォルトの名無しさん ：2024/05/14(火) 11:08:08.44 ID:4ur2uort0.net

ワークシート上で使うつもりの関数についてですが
Function で関数を作る場合に
ワークシートのsum関数のように、「開始セル：終端セル」で範囲指定したものを
引数として渡すにはどのように書けばいいでしょうか？

Fuction Nmame（ここにどう書けば・・・）　as　Ingteger

という意味です

58 ：デフォルトの名無しさん ：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 ：2024/05/14(火) 14:38:27.21 ID:w6s7TkHo0.net

>>58
ありがとうございます
様子がわかりました

60 ：デフォルトの名無しさん ：2024/05/15(水) 02:47:04.16 ID:m8dxiqQg0.net

WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。

61 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0eda-UQRA)：2024/05/20(月) 19:11:18.88 ID:7XMc72u80.net

たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ

62 ：：2024/05/21(火) 10:21:01.62 ID:KUESjums0.net

WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな
SequenceとXlookupはたまに使う