Const sFileName as String ="パワポファイルをフルパスで" Sub Export_PPT() Dim pptApp As PowerPoint.Application: Set pptApp = New PowerPoint.Application Dim pptFile As PowerPoint.Presentation Dim dStartTime As Date: dStartTime = Now() Set pp…

フォルダ指定のところとかもうちょっとやりようがありそう。 というか、Outlookの環境設定次第でいろいろ変わりそう。追記:Exchangeユーザのメールアドレス取得がうまくできなかったので http://www.gregthatcher.com/Scripts/VBA/Outlook/GetSmtpAddress.as…

極力汎用的な作りに Option Compare Database Const sDataSheetName As String = "sheet1" 'データ取得シート名 Const sDataSheetRow As Long = 2 'データ取得行 Const sTableName As String = "T_Test" 'データ格納先テーブル名 '個々のExcel入力シートを取…

Worksheet_Changeイベントで変更後の値を別変数にいったん退避 →セル自体はUndoで変更前に戻した後に 値だけ変更後のものに入れる コピー元が複数セルだったりコピー先が結合されている場合 想定通りの動作にはならないので要検討 Private Sub Worksheet_Cha…

RANK関数をA列に埋め込んだ場合、こんな感じで行けそう。=A1+(COUNTIF(A:A,A1)-1)/2

http://blog.livedoor.jp/yorinaga/archives/51557918.html がネットワークドライブに対応してなかったのでカスタマイズ。 Public Function MakeFolder(strPath As String) As Boolean On Error GoTo ErrHandler On Error GoTo 0 Dim pos1 As Integer Dim po…

Dim bFlag As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Static sAfter As String '更新後のセル範囲アドレス Static sBefore As String '更新前のセル範囲アドレス If Target.Row <= 5 Or Target.Column <= 5 Then Exit Sub If bFlag T…

とりあえずメモ。 =MID(DEC2BIN(ROW()-[出力開始行]-1,[チェック項目数]),COLUMN()-[出力開始列]-1,1)

A1形式⇒R1C1形式で書き換えるのが面倒な人向け? COLUMN()を任意の列番号が入ったセルにして、INDIRECT関数と組み合わせればいけそう。IF分岐を使ったパターン =IF(COLUMN()分岐なしパターン =SUBSTITUTE(CHAR(INT((COLUMN()-1)/26)+64)&CHAR(MOD(COLUMN()-1,…

Public Function Chk_機種依存(strTarget As String) As String Dim strReturn As String 'エラー文字の蓄積用 Dim intStrLen As Integer 'strTargetの文字長 Dim intChar As Integer '判定用の文字コード Dim i As Integer 'counter intStrLen = Len(strTar…

一箇所バグがあったので修正 Public Function GetFontInterior(rCell As Range) As String Dim i As Long, j As Long 'セルのテキスト評価用カウンタ Dim sRet As String '返すテキストを格納 Dim sAttr As String 'style に入れる属性値 Dim nDone As Long …