[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
JUGEMテーマ:Office VBA 印刷設定と基表を長子でソートをしてあるので、学年組名前でソートをして基に戻しておく。 '' 印刷範囲設定解除 PageSetup.PrintArea = "" ' 印刷範囲 gyou = Cells(Rows.Count, 2).End(xlUp).Row PageSetup.PrintArea = Range(Cells(21, "A"), Cells(gyou, "I")).Address Call 年組名前ソート 年組名前ソート Worksheets("moto").Range("i3").Sort Key1:=Worksheets("moto").Range("f3&...
ニャン太郎の叫び | 2019.06.23 Sun 20:51
JUGEMテーマ:Office VBA ' 変数の宣言gu:表の初めの行 Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22").Select g = 4 gu = 21 r = 2 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "y").Value = 1 _ &nb...
ニャン太郎の叫び | 2019.06.22 Sat 17:32
JUGEMテーマ:Office VBA ' 変数の宣言gu:表の初めの行 Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22").Select g = 4 gu = 21 r = 2 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "y").Value = 1 _  ...
ニャン太郎の叫び | 2019.06.21 Fri 22:23
JUGEMテーマ:Office VBA 前回のソートで、会計をする金額は移動しないので、基表に会計用のセルを作成する必要になり、今後は会計基表のワークシートを使用しないようにする。 If Columns("z:ai").Hidden = False Then Columns("z:ai").Hidden = True Columns("j:y").Hidden = False Else Columns("z:ai").Hidden = False &nbs...
ニャン太郎の叫び | 2019.06.20 Thu 22:12
JUGEMテーマ:Office VBA ' 長子でソート Worksheets("moto").Range("i3").Sort Key1:=_ Worksheets("moto").Range("y3"), Order1:=xlAscending, _ Header:=xlYes 他の例 Sub 年組名前ソート() Range("i3").Sort Key1:=Range("f3"), Order1:=xlAscending, _ Key2:=Range("g3"), Order2:=xlAscending, _ key3:=Range("j3"), or...
ニャン太郎の叫び | 2019.06.19 Wed 16:25
JUGEMテーマ:Office VBA 基表加工に長子を数字に置き換えるボタンを作成 Call 電話ソート Call hani For g = 4 To gyou If Cells(g, "o").Value <> Cells(g + 1, "o").Value Then Cells(g, "e").Value = "○" Cells(g, "y") = 2 Else C...
ニャン太郎の叫び | 2019.06.18 Tue 22:54
JUGEMテーマ:Office VBA ' 印刷範囲設定解除 PageSetup.PrintArea="" ' 印刷範囲 gyou = Cells(Rows.Count, 2).End(xlUp).Row PageSetup.PrintArea = Range(Cells(21,"A"),Cells(gyou, "I")).Address
ニャン太郎の叫び | 2019.06.17 Mon 22:08
JUGEMテーマ:Office VBA ' 変数の宣言gu:表の初めの行 Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22").Select g = 4 gu = 21 r = 2 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ ...
ニャン太郎の叫び | 2019.06.16 Sun 16:12
全146件中 11 - 20 件表示 (2/15 ページ)