縦方向の結合にも対応させてみたが思ったより大げさになってしまった。 Option Explicit '結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの…

'横方向に結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの大きさによって長さ当たりのピクセル数が変わってくるので標準のフォントを揃える…

'横方向に結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの大きさによって長さ当たりのピクセル数が変わってくるので標準のフォントを揃える…

' Printout Current Page 'アクティブなセルのあるページだけ印刷 Public Sub PrintCurrentPage() Dim PageNumber As Long PageNumber = PageNumberOf(ActiveCell), s.PrintOut From:= PageNumber , To:=PageNumber End Sub '特定のセルのページ番号を取得 '…

'===ポイント=== 'レコードの移動は、MailMerge.DataSource.ActiveRecord の設定により行う ' MailMerge.DataSource.Included プロパティの設定により、差し込みデータに含むかどうか設定できる Sub MakeResultFiles() ' ファィル名に使うキーとなるフィール…

Private Sub OpenFolder(Path As String) Dim sa Set sa = CreateObject("Shell.Application") sa.Open Path End Sub

Sub FilterNotSelected() Dim v v = Selection.Cells(1, 1).Value If Selection.Worksheet.AutoFilter Is Nothing Then Selection.AutoFilter End If Dim Af As AutoFilter Set Af = Selection.Worksheet.AutoFilter Dim Field Field = Selection.Column - A…

1. [ツール]-[マクロ]-[セキュリティ]-[信頼できる発行元]-[VBAプロジェクトへのアクセスを信頼する]にチェック Sub AddRef() On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile "scrrun.dll" 'Scripting Runtime ThisWorkbook.VBProject…

イベントプロシージャを使う方法で書き直してみました。 それほどニーズのある機能ではないかもしれませんが、他では見たことが無い機能なので、公開しておきます。 ダウンロード http://space.geocities.jp/micnak2001/vba/CancelOverlappedSelection.zip …

１６進数を１０進数に変換するには？ CLng("&H" & "FF") FROM http://www.tsware.jp/tips/tips_342.htm

question:1159247189 Excelで、Ctrlキーを押しながら複数の箇所を選択すると離れた範囲でも選択できますが、 間違えたセルを選択してしまった場合にはキャンセルができません。 （Ctrlを押しながら、再び選択すれば何とかなると思っていたのですが、 ...以下…

Excel2003までには(2007以降どうなるのかは知りません。)、ショートカットキーを変更する方法がないので、 ショートカットキーを変更するには、 「猫まねき*1」のようなキーボード入れ替えソフトを使う 同様の機能を持つマクロを作って、そのマクロにショー…

今、大学の自己点検・評価のための文書の整理の仕事に携わっています。 やってることは、何のことは無い、100ページのWORDファイルの校正と整形です。 数10ページを超える文書の作成となると、見出しスタイルを設定し、見出しマップで文書内をうろうろしなが…

microsoft.public.jp.excel > ＣＳＶファイルを読み込んだときに文字列として読みたい http://groups.google.com/group/microsoft.public.jp.excel/msg/ba2e8e1282207cdf?as_umsgid=OHg3YYLlDHA.3320@tk2msftngp13.phx.gbl

短大職員関係ないじゃん、って感じになってしまってますが、またVBAネタです。例えば、入力された成績の中から合格者だけ数えるユーザ定義関数CountPass*1を作りたいとします。 A B C 氏名 成績 合格者数 豊田 60 =CountPass(B:B) 本田 55 鈴木 68 富士 75 …

記事の本題とは関係ないんだけどメモ 不特定の位置にある不要な文字列の削除･変換 in microsoft.public.jp.excel http://www.microsoft.com/communities/newsgroups/list/en-us/default.aspx?dg=microsoft.public.jp.excel&tid=9bd74f7b-df84-472e-8880-b92e…

以下のYahooブリーフケースからファイル ConvineSheets.zip をダウンロードし、中のEXCELファイルを開いてください。 簡単な使い方はファイルの中に書いてあります。 マクロの場所: http://briefcase.yahoo.co.jp/bc/micnak2001/lst?&.dir=/3e2e&.src=bc&.vi…