VBA - あきらちんの技術メモ

EXCELで日数計算

2020/09/09 -VBA
CSVダウンロード, カレンダー, 休日計算, 休日設定, 平日計算, 曜日色設定

はじめに EXCEL関数で稼働日数を計算するものが有りますが、シート1枚でパッと見れたら良いよなぁと思いまして作ってみました。ダウンロード利用したいだけの方は、こちらからダウンロードしてご利用くだ ...

EXCELで領収書の発行管理

2020/09/07 -VBA
WorksheetFunction, シートの保護, 印刷, 領収書

はじめに複写伝票を利用して領収書を発行することが多いかもしれませんが、EXCELで簡単に管理ができると金額の集計など便利になったりします。一覧表にデータを打ち込んで領収書＆領収書（控）を発行するE ...

EXCEL VBAでSQL文を使う

2020/08/07 -EXCEL, VBA
delete, deleteはエラー, insert, SQL, update

EXCEL VBAでSQL文を使って集計するでは、SELECT文を利用できましたが、INSERTやUPDATEにDELETEなどは利用できるのか試してみました。集計で利用したEXCELシートにボタン ...

EXCEL VBAでメール一括配信！添付ファイルも付けられるよ　その２

2020/05/11 -VBA
メール一括配信, メール送信, 添付ファイル

はじめに以前に公開したメール一括配信では、BASP21を利用したもので、Excelが32ビット限定でした。今回は「CDO.Message」を利用して配信できます。Excelが64ビットでも利用でき ...

EXCEL VBAで並べ替え（メモ）

2020/04/20 -VBA
Sort

EXCEL VBAで複数キーで並べ替える場合のメモです。 ※Excel 2013 64ビット

 Dim wb As Workbook

' 新しいブックを作成
Set wb = Workbooks.Add

' シートにデータ貼り付け

～省略～


' 並べ替え
  With wb.Sheets("Sheet1").Sort
' 並べ替えの条件をクリア
.SortFields.Clear
' １番目の並べ替えキー　G列の4行目から27行目
.SortFields.Add Key:=Range("G4:G27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' ２番目の並べ替えキー　A列の4行目から27行目
.SortFields.Add Key:=Range("A4:A27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' 並べ替えの範囲
.SetRange Range("A4:H27")
' 最初の行にヘッダー情報が含まれるかどうか　xlGuess：自動　xlYes：見出し　xlNo：見出し使用しない
.Header = xlGuess
' 大文字小文字を区別する並べ替え　false：区別しない　true：区別する
.MatchCase = False
' 並べ替えの方向　xlTopToBottom：行単位で並べ替え（上から下）　xlLeftToRight：列単位で並べ替え（左から右）
.Orientation = xlTopToBottom
' 並べ替えの方法　xlPinYin：ふりがなを使って並べ替え　xlStroke：ふりがなを使わずに並べ替え
.SortMethod = xlPinYin
' 並べ替え実行
.Apply
End With

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

Dim wb As Workbook

' 新しいブックを作成

Set wb = Workbooks.Add

' シートにデータ貼り付け

～省略～

' 並べ替え

With wb.Sheets("Sheet1").Sort

' 並べ替えの条件をクリア

.SortFields.Clear

' １番目の並べ替えキー　G列の4行目から27行目

.SortFields.Add Key:=Range("G4:G27"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

' ２番目の並べ替えキー　A列の4行目から27行目

.SortFields.Add Key:=Range("A4:A27"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

' 並べ替えの範囲

.SetRange Range("A4:H27")

' 最初の行にヘッダー情報が含まれるかどうか　xlGuess：自動　xlYes：見出し　xlNo：見出し使用しない

.Header = xlGuess

' 大文字小文字を区別する並べ替え　false：区別しない　true：区別する

.MatchCase = False

' 並べ替えの方向　xlTopToBottom：行単位で並べ替え（上から下）　xlLeftToRight：列単位で並べ替え（左から右）

.Orientation = xlTopToBottom

' 並べ替えの方法　xlPinYin：ふりがなを使って並べ替え　xlStroke：ふりがなを使わずに並べ替え

.SortMethod = xlPinYin

' 並べ替え実行

.Apply

End With

「VBA」一覧

EXCELで日数計算

EXCELで領収書の発行管理

EXCEL VBAでSQL文を使う

EXCEL VBAでメール一括配信！添付ファイルも付けられるよ　その２

EXCEL VBAで並べ替え（メモ）

EXCEL VBA で封筒印刷

CSVファイルをダウンロードしてシートにセットする

EXCEL VBA でオリジナルカレンダーを作成 Ver2

EXCEL VBA でオリジナルカレンダーを作成

EXCEL VBAで計算式をセットする

「VBA」 一覧

「VBA」一覧