ホーム >

ブログテーマ >

コンピュータ >

Office VBA

このテーマに投稿された記事：146件 | このテーマのURL:https://jugem.jp/theme/c247/7080/

Tweet
Check

: VBAに関するTipsだけではなく、困ったことや失敗談など個人的なことを気軽に投稿しあえればいいなと思っています。
リンクやトラックバックも活用して、初心者から上級者までが活用できるもの。また、緊張をほぐしたり共感できるものなども充実できたらいいと思います。
: 作者のブログへ：「iblog」さんのブログ
その他のテーマ：「iblog」さんが作成したテーマ一覧(6件)

このテーマで記事を投稿する

4-1　点検用学級名簿の作成(4)罫線を引く

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

4-1　点検用学級名簿の作成(3)番号と名前を取り出す?

JUGEMテーマ：Office VBA 基準のセルからセルを選択する Offse(a,b) 基準のセルからa行、b列移動　a,bはマイナスでもよい。

ニャン太郎の叫び | 2019.04.10 Wed 15:27

4-1　点検用学級名簿の作成(3)番号と名前を取り出す?

繰り返し処理２ Do Until A 　B Loop ActiveCell：現在のセル位置を取得する基準のセルからセルを選択する Offse 変数に代入 r = r + 1 複数をまとめて記述 With　A 　A. End With JUGEMテーマ：Office VBA

ニャン太郎の叫び | 2019.04.10 Wed 11:32

4-1　点検用学級名簿の作成(3)番号と名前を取り出す?

' 名簿作成 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

4-1　点検用学級名簿の作成(2)罫線や文字を消す

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

4-1　点検用学級名簿の作成(1)準備（復習）?

JUGEMテーマ：Office VBA 新しいワークシートに名簿の大枠と名簿作成用の「２ここをクリックする」のボタンを作成する。

ニャン太郎の叫び | 2019.04.09 Tue 00:02

4-1　点検用学級名簿の作成(1)準備（復習）?

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

3-7　両親の名前から、保護者を記述する(1)ボタンの作成

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

3-6　漢字の名前から平仮で名を求める(4)命令文の説明

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

このテーマに記事を投稿する"