ホーム >

ブログテーマ >

コンピュータ >

Office VBA

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

Tweet
Check

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

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

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

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

ニャン太郎の叫び | 2019.03.31 Sun 18:41

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

JUGEMテーマ：Office VBA Sub ふりがな() Dim furigana As String For g = 4 To gyou furigana = Application.GetPhonetic(Cells(g, 9)) Cells(g, 10) = furigana Next g For g = 4 To gyou furigana = Application.GetPhonetic(Cells(g, 9)) Cells(g, 11) = StrConv(furigana, vbHiragana) Next g End Sub ユーザーフォームにボタンをつけ、Captionにふりがなにする。このボタンをダブルクリックをして...

ニャン太郎の叫び | 2019.03.31 Sun 16:41

3-6　漢字の名前から平仮で名を求める(1)

JUGEMテーマ：Office VBA 漢字の名前のふりがなを調べ、それをひらがなで表示します。このようなことは、名前でソートをし、あいうえお順に名簿にするために必要になります。関数でできるのですがVBAでつくりました。関数の場合は、データを変えると関数まで消えてしまいます。VBAで作れば、関数を知らない人や、データを変えても安心です。 Module１に下記のように書き込む。 Sub ふりがな() Dim furigana As String For g = 4 To gyou furigana = Application.GetPhonetic(Cells(g...

ニャン太郎の叫び | 2019.03.30 Sat 22:57

3-5 10行おきに違う色の罫線を引く

JUGEMテーマ：Office VBA 表の10行おきの罫線を茶色で、さらに太くしたい。今までのことが、はっきりしている人は、太線：xlThick　茶色：53 を使ってコードを考えてみよう。標準モジュールのModule1に下記を書く Sub 罫線10行おき() 　　For g = 3 To gyou Step 10 　　　　For r = 1 To retu 　　　　　　Cells(g, r).Borders(xlEdgeBottom).Weight = xlThick 　　　　　　Cells(g, r).Borders(xlEdgeBottom).ColorIndex = 45 　　　　Next r 　　Next g End Sub コマンドボタン...

ニャン太郎の叫び | 2019.03.30 Sat 17:57

3-4 5行おきに違う罫線を引く(2)命令文の説明

JUGEMテーマ：Office VBA Borders；へり　縁 bottom：底　Edge：縁、へり Weight：重さ（ここでは太さ） Medium：中間

ニャン太郎の叫び | 2019.03.29 Fri 21:56

3-4 5行おきに違う罫線を引く(1)命令文の記述

JUGEMテーマ：Office VBA 5行おきに罫線を太くしたいです。そのためには、セルの底辺の線を太くすると考えて次のような方法で行います。標準モジュールのModule1に下記を書く Sub 罫線5行おき() For g = 3 To gyou Step 5 　　　　For r = 1 To retu 　　　　　　Cells(g, r).Borders(xlEdgeBottom).Weight = xlMedium 　　　　Next r 　　Next g End sub コマンドボタンからコードを下記の様に書き換える。 Private Sub CommandButton4_Click() 　　Call hani 　　Ca...

ニャン太郎の叫び | 2019.03.28 Thu 22:24

3-3 罫線を引いたり、消す(2)ボタン作成

JUGEMテーマ：Office VBA 罫線を引いたり、消したりするボタンを作成しておけば、手間が省け、わかりやすくなります。ボタン作成は今までの復習になりますので動画で確認します。コードは下記のように書くかコピーします。 Private Sub CommandButton4_Click() 　　Call hani 　　Call 罫線を引く　　Call セル選択 End Sub Private Sub CommandButton5_Click() 　　Call hani 　　Call 罫線を消す　　Call セル選択 End Sub

ニャン太郎の叫び | 2019.03.27 Wed 21:41

3-3 罫線を引いたり、消す(1)命令文の記述

JUGEMテーマ：Office VBA 罫線は今後も、名簿作成等でも利用するので、標準モジュールに記録させます。 Module1を開き、下記のをコピーします。 Sub 罫線を引く() Call hani Range(Cells(3,1),Cells(gyou+1,retu)).Borders.LineStyle = True End Sub Sub 罫線を消す() Call hani Range(Cells(3,1),Cells(gyou+1,retu)).Borders.LineStyle = False End Sub Sub セル選択() Cells(4,9).Select End Sub

ニャン太郎の叫び | 2019.03.26 Tue 17:06

3-2 付けた色を消す(2)命令文の説明

JUGEMテーマ：Office VBA Private Sub CommandButton3_Click() Call hani For g = 4 To gyou For r = 1 To retu Cells(g, r).Interior.ColorIndex = 35 Next r Next g End Sub

ニャン太郎の叫び | 2019.03.25 Mon 21:31

3-2 付けた色を消す(1)ボタンの作成

JUGEMテーマ：Office VBA コード表示→フォーム→UF1→「色付け」ボタン→右クリック→コピーフォーム上でクリック→Ctrl＋V→出来たボタンを右クリック→コード表示下記の命令文をコピーする Private Sub CommandButton3_Click() Call hani For g = 4 To gyou For r = 1 To retu Cells(g, r).Interior.ColorIndex = 35 Next r Next g End Sub

ニャン太郎の叫び | 2019.03.24 Sun 22:34

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