• JUGEMテーマ
  • MonoColle
  • PICTO

ブログテーマ

ユーザーテーマ

Office VBA

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

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

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

4-6 請求書(6)偶数命令文挿入

JUGEMテーマ:Office VBA   Range("g22").Select g = 5  Do Until Worksheets("moto").Cells(g, "i").Value = ""            With ActiveCell             If Worksheets("moto").Cells(g, "f").Value = _             Cells(2, "d") And _             Worksheets("moto").Cells(g, "...

ニャン太郎の叫び | 2019.06.15 Sat 15:37

4-6 請求書(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, "f").Value = _             ...

ニャン太郎の叫び | 2019.06.13 Thu 22:01

4-6 請求書(4)奇数命令文挿入

JUGEMテーマ:Office VBA   Range("B2:C3").Merge     Range("A1").Offset(3, 3).Value = "D4 だよ" Cells(g + 2, "p").Value = _        CStr(Cells(g, "f").Value) + "-" + CStr(Cells(g, "g").Value) + _        Cells(g, "r").Value + Cells(g + 2, "p").Value Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22&...

ニャン太郎の叫び | 2019.06.13 Thu 00:00

4-6 請求書(3)表のコピー

JUGEMテーマ:Office VBA    行削除 Range("21:100").Delete ' 表のコピー g = 4   r = 2 Range(Cells(g, r), Cells(g+12, r+8)).Copy Cells(g+17, r).PasteSpecial Application.CutCopyMode = False ' セル選択を戻す Range("d2").Select   1 セル セルの集合体:Range Rangesはない (1)セル指定   セルB列5行の指定→Range("B5")  アドレスは文字列で指定 Cells(5,2) は数値で指定 n:変数   Range("...

ニャン太郎の叫び | 2019.06.11 Tue 22:21

4-6 請求書(2)請求書シート

JUGEMテーマ:Office VBA

ニャン太郎の叫び | 2019.06.10 Mon 18:09

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

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

全130件中 1 - 10 件表示 (1/13 ページ)

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