プログラミングやパソコン設定など備忘録

「投稿者アーカイブ：akiratin 」一覧

: 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

: EXCEL VBA で封筒印刷

2020/01/17 -VBA
Worksheet_Change, WorksheetFunction, 封筒印刷, 角形2号, 長形3号

はじめに会社名やロゴが入った封筒を少量印刷したい場合に簡単にできる方法としてExcelで作成してみました。年賀状印刷ソフトなどを利用すれば必要無いのですが、いろいろ応用できるのであると便利です。 ...

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

2019/12/02 -VBA
CSV, セルアドレス変換, ダウンロード

はじめに以前に作成したカレンダーの祝日は、内閣府のホームページからダウンロードして利用するようになっております。ボタンを押して取り込めれば非常に簡単になるので作ってみました。ダウン ...

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

2019/09/30 -VBA
SQL, カレンダー作成, フリー, 万年カレンダー, 六曜, 無料

はじめに前回のカレンダーを改良して祝日や六曜を表示できるようにしました。誕生日などのイベントも表示できます。六曜の表示には、以下のサイト（Vector）からダウンロードしたモジュールを利用させてい ...

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

2019/06/28 -VBA
SQL, 万年カレンダー

はじめに今年のゴールデンウィークは大型連休となりましたが、天皇の即位の日の5月1日が休みとなったためです。東京オリンピックの年（2020年）は、「海の日」は7月23日に、「体育の日（スポーツの日） ...

: ACCESS VBA でレポートの並べ替え

2019/04/22 -VBA
Report, ソート

はじめに ACCESSでレポートを出力する際に並べ替えを行う場合、VBAを利用すると簡単に行う事ができます。動的に設定できるため同じレポートをいくつも作らなくて良いのでとても便利なのですが、先日少し ...

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

2019/04/05 -VBA
見積書, 計算式

はじめに見積書などで計算式をセルにセットして利用することが多いのですが、誤って計算式を削除してしまうことがあります。シートを保護すれば良いのですが、「計算式セット」ボタンを配置してVBAで計算式を ...

: EXCEL VBAでSQL文を使って集計する。複数ブック対応案

2019/01/25 -VBA
SQL, シートコピー, シート削除, シート追加, 複数ブック, 集計

EXCEL VBAでSQL文を使って集計する　を複数ブックで行う場合を考えてみました。複数のシートを結合してSQLを発行したい場合に別々のブックであると、コネクションが別々となってしまうため、ひとつ ...

: OpenCVで自動車の分類器を作る

2019/01/24 -OpenCV
C#, JPG, OpenCV, 分類器, 動画

はじめに Pythonをはじめよう　第７回　ファイルを選択して動画再生で自動車の識別を行うことを予定しておりました。ただ、OpenCVの自動車のカスケードファイルが用意されておりませんでしたので、自分 ...

« 前へ 1 2 3 4 5 次へ »

Copyright© あきらちんの技術メモ , 2022 All Rights Reserved Powered by STINGER.