VBA
プログラミング教育をしていると、ソースコードをWord文書や PowerPointスライドに貼り付ける作業をすることがある。 そんなときのWordVBAマクロ。1. Wordの新規文書に、ソースコードを貼り付ける。 2. マクロを実行する。 3. 表形式にフォーマットされたソ…
http://qiita.com/kencoba/items/8f5c35a874bda4b00fcd
Option Explicit Public Sub CSharpのキーワードの色を変更する() Dim keywordList() As String keywordList = Split("テキスト", ",") Dim keywordColor As Long keywordColor = RGB(0, 0, 255) Dim backGroundColor As Long backGroundColor = RGB(128, 0,…
コマンドラインから実行できるようにした。 ' > cscript PPT2Text.vbs powerpoint-filename Option Explicit ' ファイル名を実行時パラメータから取得する Dim pptFilename pptFilename = WScript.Arguments.Item(0) Dim oApp Set oApp = CreateObject("Powe…
PPTファイルのスライドの内容を、ノート部分も含めてすべてテキストファイルに出力する Option Explicit Sub Extract() Dim myFilePath As String ' 書き出しファイルを指定する myFilePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ …
Excelシートにアンケートコメントを格納した場合、 印刷時に最後の行が表示されなくなることがあります。 PC画面上では見えているのに、印刷では見えない。対策としては、「各セルの文字列の最後に改行を入れる」 というのがありますが、非常に煩雑です。 手…
こういうのが地味に便利。 Attribute VB_Name = "FormatSheet" Sub シート設定() Const 範囲 = "$A$1:$S$9" ' 罫線を引く With Range(範囲) '上段 With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With…
こういうものが無いと不安な仕事があるのです。 ' 指定された2つのシートの差分を新しいシートに出力する Sub Diff(ByRef 比較対象1 As Worksheet, ByRef 比較対象2 As Worksheet) Dim 出力 As Worksheet Set 出力 = Worksheets.Add Dim endOfRow As Long en…
こんなマクロが必要になることがしょっちゅうあります。 Public Sub ラベルシート作成() Dim 講座名列番号 As Long Dim 資料名列番号 As Long Dim 配布日列番号 As Long Dim 配布No列番号 As Long Dim ラベル対象列番号 As Long 講座名列番号 = 1 資料名列番…
Option Explicit ' 大項目、中項目、小項目形式で書かれた表の罫線を綺麗に整理する ' 空白のセルは罫線を引かないように整理する Sub FormatRuledLine() For Each c In Selection c.Borders.LineStyle = xlContinuous If c.Value = "" Then c.Borders(xlEdg…
ここ数日、ExcelVBAのマクロを書いています。Excelのシートで書かれた大量のアンケート、申請書などの項目を 全部一覧形式にしてチェックしたいときがしょっちゅうあります。そんなときに使えるマクロを作ってみました。 Option Explicit Sub データ抽出() D…