[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""] Office VBAのブログ記事をまとめ読み! 全146件の2ページ目 | JUGEMブログ

  • JUGEMテーマ

ブログテーマ

ユーザーテーマ

Office VBA

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

< 1  2  3  4  5  6  7  8  9  10  11 >

3-15 会計金額挿入(2)終了ボタン作成

JUGEMテーマ:Office VBA

ニャン太郎の叫び | 2019.06.26 Wed 15:54

3-15 会計金額挿入(1)ユーザーフォーム作成

JUGEMテーマ:Office VBA

ニャン太郎の叫び | 2019.06.25 Tue 15:25

4-7 請求書長子(6)学年組名前でソート

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

4-7 請求書長子(5)偶数番目命令文

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

4-7 請求書長子(4)奇数番目命令文

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

4-7 請求書長子(3)基表に会計基表ボタン

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

4-7 請求書長子(2)長子でソート

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

4-7 請求書長子(1)長子を数値に

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

4-6 請求書(8)印刷範囲設定

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

4-6 請求書(7)偶数命令文内容

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

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

< 1  2  3  4  5  6  7  8  9  10  11 >

全146件中 11 - 20 件表示 (2/15 ページ)

[PR] レンタルサーバー heteml [ヘテムル]
あなたのクリエイティブを刺激する、
200.71GBの大容量と便利な高機能!