[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
JUGEMテーマ:Office VBA ' 罫線引き gyou = Range("b5").End(xlDown).Row Range(Cells(5, 1), Cells(gyou + 1, "p")).Borders.LineStyle = True
ニャン太郎の叫び | 2019.04.10 Wed 17:01
JUGEMテーマ:Office VBA 基準のセルからセルを選択する Offse(a,b) 基準のセルからa行、b列移動 a,bはマイナスでもよい。
ニャン太郎の叫び | 2019.04.10 Wed 15:27
繰り返し処理2 Do Until A B Loop ActiveCell:現在のセル位置を取得する 基準のセルからセルを選択する Offse 変数に代入 r = r + 1 複数をまとめて記述 With A A. End With JUGEMテーマ:Office VBA
ニャン太郎の叫び | 2019.04.10 Wed 11:32
' 名簿作成 r = 4 Range("a5").Select Do Until Worksheets("moto").Cells(r, 9).Value = "" With ActiveCell If Worksheets("moto").Cells(r, 6).Value = _ Cells(2, 4) And _ Worksheets("moto").Cells(r, 7).Val...
ニャン太郎の叫び | 2019.04.09 Tue 22:56
JUGEMテーマ:Office VBA Private Sub Label2_Click() ' 罫線や文字を消す Range(Cells(5, 1), Cells(44, "p")).Clear End Sub 「'」シングルコーテーション:vbaコードのコメント Clear:クリア関係のメソッド(命令) 罫線と文字のクリア
ニャン太郎の叫び | 2019.04.09 Tue 16:31
JUGEMテーマ:Office VBA 新しいワークシートに名簿の大枠と名簿作成用の「2 ここをクリックする」のボタンを作成する。
ニャン太郎の叫び | 2019.04.09 Tue 00:02
JUGEMテーマ:Office VBA ワークシートを新しく作成してそこに目次に行けるようにボタンを作成する。、目次に新しいラベルを作り、新しいワークシートに行けるラベルを作成する。
ニャン太郎の叫び | 2019.04.07 Sun 20:58
JUGEMテーマ:Office VBA Sub 保護者記録() For g = 4 To gyou If Cells(g, "m") = "*" Or Cells(g, "m") = "" Or Cells(g, "m") = "*" Then Cells(g, "l").Value = Cells(g, "n").Value Else Cells(g, "l").Value = Cells(g, "m").Value End If Next g End Sub Private Sub CommandButton11_Click...
ニャン太郎の叫び | 2019.04.06 Sat 20:53
JUGEMテーマ:Office VBA 片親がいて、保護者が父親でない場合があります。そのとき母親が保護者にまります。今までの復習です。どのように考えればよいか考えてみましょう。 ここでは、片親でいないところは空白または「*」で表します。 Sub 保護者記録() For g = 4 To gyou If Cells(g, "m") = "*" Or Cells(g, "m") = "" Or Cells(g, "m") = "*" Then Cells(g, "l").Value = Cell...
ニャン太郎の叫び | 2019.04.02 Tue 21:49
JUGEMテーマ:Office VBA Sub ふりがな() Dim furigana As String For g = 4 To gyou If Cells(g, 10).Value = "" Then furigana = Application.GetPhonetic(Cells(g, 9)) Cells(g, 10).Value = StrConv(furigana, vbHiragana) End If Next g End Sub 値が空白:Value = "" クオーテーションマーク:" 条件によって、処理を変える(「あ」だったら、処理を行いなさい。「あ」でなかったら終わりなさい。 If あ then 処理 End If
ニャン太郎の叫び | 2019.04.01 Mon 22:29
全146件中 91 - 100 件表示 (10/15 ページ)