その他

Private Sub Worksheet_Deactivate() '別のシートを選択すると、 '切り取りモード､またはコピーモードを解除し､点滅している枠線を取り除き、 '「貼り付け」コマンドが使えなくなります。 Application.CutCopyMode = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' 選択中のシートのセルを移動した場合に '切り取りモード､またはコピーモードを解除し､点滅している枠線を取り除き、 '「貼り付け」コマンドが使えなくなります。 Application.CutCopyMode = False End Sub 別のブックを選択した場合にも「貼り付け」ができないようにするには、下のマクロコードを「Microsoft Visual Basic」の対象のファイルの[ThisWokBook]コードウィンドウに貼り付けます。 Private Sub Workbook_Deactivate() ' 選択中のブックを非選択にした場合に '切り取りモード､またはコピーモードを解除し､点滅している枠線を取り除き、 '「貼り付け」コマンドが使えなくなります。 Application.CutCopyMode = False End Sub

マクロを使わなくても、すべての図形を一度に消去する方法はあります。
「編集」「ジャンプ」で「ジャンプ」ダイアログボックスで、「セル選択」ボタンを押して、「オプジェクト」「ＯＫ」ボタンを押します。
これで、すべての図が選択されます。
[Del]キーを押します。

マクロの場合のマクロコードは次のようになります。
Sub 図形削除()

'
ActiveSheet.DrawingObjects.Delete
End Sub

ただし、マクロで実行した場合は、その操作はもとに戻せませんので注意して下さい。

VBAで、シート名に"テスト"という文字列を含むシートを選択出来ますか？

添付ファイルを参照してください。
「ツール」「マクロ」「マクロ」の「シート選択」で確認できます。
ワイルドカードではなく、ワークシート関数の
Find関数で、"テスト"という文字列がシート名にあるかどうかを検索し、
Iserr関数で、その値がエラーでなければ、
そのファイルを選択します。

マクロコードは、次のようになります。

Sub シート選択()
On Error Resume Next
For s = 1 To Sheets.Count
sn = Sheets(s).Name
f = Application.Find("テスト", sn)
If Not (Application.IsErr(f)) Then
Sheets(s).Activate
End
Else
End If
Next s
End Sub

VBAで、指定のシート名の1つ前のシートを選択する

たとえば、シート「説明」の一つ前のシートを選択するには、
シート名「説明」のシート番号-1となます。
具体的には、
Sheets(Sheets("説明").Index - 1).Activate
で、シート「説明」の1つ前のシートを選択できます。

ある年日時が来るとファイルを開けることが出来なくする方法

参考になる質問が「質問と回答」
の「VBA・その他」「2004/02/15」
「ファイルの試用期間を設定して、それを解除キーによって制限を外す方法」
にあります。

ファイルを開いたとき、当日のシートを開きたい

見本のファイルを参照してください。
シート名は、「1日」「2日」・・・「30日」「31日」ですね。
シート名の1日は、
日付&"日"とするため、マクロコードは次のようになります。
Private Sub Workbook_Open()
Sheets(Day(Now()) &"日").Activate
Range("B9").Activate
End Sub
対象のファイルに、上のマクロコードをコピーして貼り付けます。
ファイルを開いて、[Alt]+{F11]を押して、「マクロ」「Visual Basic Editor」を選択し、開いた「Microsoft VisualBasic」の左上にある「プロジェクト-VBAProject」の対象ファイルの「This WorkBook」をマウスの右ボタンのショートカットメニュー、「コードの表示」を選択し、開いたコードウィンドウに貼り付けます。
一端ファイルを閉じ、次にファイルを開くと、自動的に当日の日付のシートをアクティブにします。

エクセルでアンケート記入欄に空欄（未回答）がある場合保存できなくする方法

マクロを使えば可能です。

見本のファイルを参照してください。
セル範囲A1:A10には、セルに値が入力されていないと、セルの色を「ピンク」にする設定がしてあります。
セル範囲A1:A10を選択し、セルA1がアクティブの状態で、「書式」「条件付き書式」を選択し、「条件付き書式の設定」ダイアログボックスで、「条件１」で、「数式が」を選択し、「=A1<>""」と入力し、「書式」ボタ
ンを押して、「パターン」の「色」を「ピンク」にして、「ＯＫ」ボタンを押します。
セル範囲A1:A10に全て値が入力してない場合は、ファイルを保存できません。
その場合は、
"対象のセルすべてに入力が済むまで" _
"ファイルを保存できません"
というメッセージが表示されます。
下のマクロコードをコピーして[Alt]+[F11]キーを押して、Microsoft Visual Basic Editorを起動し、開いた左の「プロジェクト」ウィンドウのVBAProjectのThisWorkBookをマウスの右ボタンで選択し、「コードの表示」で開いた右のコードウィンドウに貼り付けます。
マクロコードは、次のようになります。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'セル範囲A1: A10の値がすべて入力してない場合はファイルを保存しません
    a = Range("A1") <> "" And Range("A2") <> "" And Range("A3") <> "" _
        And Range("A4") <> "" And Range("A5") <> "" And Range("A6") <> "" _
        And Range("A7") <> "" And Range("A8") <> "" And Range("A9") <> "" _
        And Range("A10") <> ""
    If a = False Then
        Cancel = True
        MsgBox "対象のセルすべてに入力が済むまで" _
            & Chr(13) & "ファイルを保存できません"
       Else
    End If
End Sub

指定した行の各行に、行の追加で、5行を入力する

「エクセルで使えるソフト」
http://kiyopon.sakura.ne.jp/soft/index.htm
に私の作成した
「行列の一括挿入」アドインソフトがあります。
これを利用すれば、選択範囲の各行(または列)に指定行(または列)数を追加できます。
説明はこちら
http://kiyopon.sakura.ne.jp/soft/gyosonyu.htm
ソフトはこちら
http://kiyopon.sakura.ne.jp/soft/gyosonyu.exe
注意このソフトを使用する場合は、「アドインソフト使用上の注意」
http://kiyopon.sakura.ne.jp/soft/addin.html
を必ずお読みください。

文字列"◎みかん◎梨◎リンゴ◎イチゴ"の記号(◎)でセル内改行させる

セル内改行は「編集」「置換」で、改行コード([Ctrl]キーを押しながら[j]キー)を押すことで対応できます。
対象セル範囲を選択し、「編集」「置換」で、「検索文字列」に「◎」と入力し、「置換後の文字列」に改行コード([Ctrl]キーを押しながら[j]キー)を押し(何も表示されません)、◎を
入力して「全て置換」ボタンを押します。
この場合は、先頭に改行されてしまいます。
◎みかん◎梨◎リンゴ◎イチゴ
が、先頭に改行を含んで
◎みかん
◎梨
◎リンゴ
◎イチゴ
となります。
これを、先頭改行を入れないようにするのですね。
下の例では、このようにして改行コードChr(10)が先頭についている場合に、選択セル範囲の先頭の文字が改行コードChr(10)の場合は、これを削除するマクロ
です。
マクロコードは、次のようになります。
Sub 先頭の改行文字を削除()
'
' 選択セルの先頭文字の改行コードを削除する
For Each c In Selection
    ad = Range(c.Address).Address
    If Left(Range(ad), 1) = Chr(10) Then
    Range(ad) = Right(c, Len(c) - 1)
    End If
Next c
End Sub
マクロは、対象のセル範囲を選択し、「ツール」「マクロ」「マクロ」から「先頭の改行文字を削除」を実行します。

データの「入力規則」のリストの表示文字を大きくしたい

残念ですが、「入力規則」のリストの表示文字を大きくすることはできません。

そこで、「入力規則」を設定したセルを選択した場合に、シートの表示倍率を140%にするようにVBA(マクロ)を作成しました。
添付ファイルを参照してください。
対象のシートの「入力規則」の設定してあるセルを選択すると、ズームを140%に変更します。
それ以外のセルを選択した場合は、ズームを100%にします。
このVBA(マクロ)は、対象のシート見出しタグをマウスの右クリックのショートカットメニューの「コードの表示」で、表示された、WorkSheetのコードウィンドウに貼り付けています。
マクロコードは次のようになります。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'入力規則の設定してあるセルを選択するとズームを140%にします。
'それ以外のセルを選択するとズームを100%にします。
Dim rc, a
rc = Cells(Target.Row, Target.Column).Address

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each a In Selection.SpecialCells(xlCellTypeAllValidation)
If a.Address = rc Then
ActiveWindow.Zoom = 140: GoTo ed
Else
ActiveWindow.Zoom = 100
End If
Next a
ed:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


住所を郵便番号で変換できる部分とそれ以外に分ける

住所から郵便番号を返すためのアドインソフト「郵便番号変換ウィザード」を利用します。
参考になる質問が「質問と回答」
の「VBA・その他」「2005/12/28」
「住所と郵便番号を相互に生成する、便利な郵便番号変換ウィザード」にあります。
その内容
郵便番号変換ウィザードを利用するには、Web からデータをダウンロードする必要があります。詳細については、ダウンロードセンターの「Excel アドイン: 郵便番号変換ウィザード (2000-2007 ユーザー用)」のページを参照してください。
ページはこちら
http://www.microsoft.com/downloads/details.aspx?FamilyID=6f6af8ef-b9dd-4e21-9e63-af4a0ff4e7ce&DisplayLang=ja

ダウンロード先は、こちら
http://www.microsoft.com/downloads/info.aspx?na=90&p=&SrcDisplayLang=ja&SrcCategoryId=&SrcFamilyId=6f6af8ef-b9dd-4e21-9e63-af4a0ff4e7ce&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2fc%2f2%2fc%2fc2c6bf2f-f276-440f-84f9-e6703bb27ccb%2fzipcode7.exe
ダウンロードしたファイルを実行後、「ツール」「アドイン」を選択し、「郵便番号変換ウィザード」を選択し、「ＯＫ」ボタンを押します。

B列に住所が入力してあるとします。

[B列の住所からA列に郵便番号を返す]
セル範囲B2:B100を選択し、[ツール] メニューの [ウィザード] をポイントし、[郵便番号変換] をクリックします。
[ツール] メニューの [ウィザード] をポイントし、[郵便番号変換] をクリック
します。
[住所から郵便番号を生成する] をクリックし、[次へ] をクリックします。
住所データのセル範囲と、郵便番号を出力するセル範囲を指定します。
郵便番号の種類と書式を指定し、[次へ] をクリックします。
エラーが出た場合の出力方法を指定し、[完了] をクリックします。
これで、B列の住所から該当する郵便番号がA列に表示されました。

[A列の郵便番号からC列に住所を返す]
セル範囲A2:A100に郵便番号が、半角または、全角で
###-####あるいは、＃＃＃?＃＃＃＃
と、入力してあるとします。
セル範囲B2:B100には、A列の郵便番号に該当する住所が番地を含めて入力してあるとします。
あらかじめ「郵便番号変換」ウィザードをインストールしておきます。
先ほどの「郵便番号変換」ウィザードを使って郵便番号から、住所をC列セルに返します。
具体的には、
セル範囲A2:A100を選択し、[ツール] メニューの [ウィザード] をポイントし、[郵便番号変換] をクリックします。
[郵便番号から住所を生成する] をクリックし、[次へ] をクリックします。
「郵便番号データのセル範囲」A2:A100と、「住所を出力するセル範囲」の左上端C2を指定します。
郵便番号の種類と書式を指定し、[次へ] をクリックします。
エラーが出た場合の出力方法を指定し、[完了] をクリックします。
これで、A列の郵便番号から該当する住所がC列に表示されました。

D列には、B列の住所からC列の文字列を削除した右の文字列を返す数式を入力します。
セルD2には、
=SUBSTITUTE(B2,C2,"")
と入力します。
数式の意味
セルB2の文字列から、セルC2の文字列を検索し、何もない文字列""に置き換えます。
このセルをコピーして、下のセル範囲に貼り付けます。
これで、D列に、郵便番号で変換されない部分の「文字列」が返ります。
D列の計算式から求めた、「文字列」を、計算式ではない文字列に置き換えます。
具体的には、セル範囲D2:D100を選択し、「編集」「コピー」します。
同じセル範囲で、「編集」「形式を選択して貼り付け」で「値」にチェツクを入れ、「ＯＫ」ボタンを押します。
これで、セル範囲D2:D100には、「文字列」としての郵便番号に変換されない部分の住所が返ります。


シートの指定セル範囲をWebページとして、マイドキュメントに保存する

シート全体ではなく、指定範囲をWebページにしたい場合は、対象となる範囲をPublishObjectというオブジェクトとして指定する必要があります。
また、新しくPublishObjectオブジェクトを作成したい場合は、PublishObjectコレクションに対するAddメソッドを実行します。
さらに、マイドキュメントのフォルダ名を取得するためには、、スペシャルフォルダの情報を得る必要があります。
それには、WScript.ShellオブジェクトのSpecialFoldersというプロパティから得ることが出来ます。

次の例は、アクティブなワークブックのシート「Sheet1」のセル範囲A6:D9を、セルB2のファイル名(タイトル名も同じにしています)でWebページとして、マイドキ
ュメントに保存するプロシージャです。

Option Explicit

Dim objWshShell, MYDOCUMENTS, Wpage, MYHTM, MYTITLE, MYRANGE
Sub マイドキュメントに保存()

'WScript.Shellオブジェクトの作成
Set objWshShell = CreateObject("WScript.Shell")

'マイドキュメントフォルダの取得
 MYDOCUMENTS = objWshShell.SpecialFolders("MyDocuments")

'ファイル名を代入
MYHTM = Sheets("Sheet1").Range("B2")

'タイトル名を代入
MYTITLE = Sheets("Sheet1").Range("B2")

'指定範囲を代入
MYRANGE = "A6:D9"
'セルA6のデータ範囲を代入する場合
'MYRANGE = Sheets("Sheet1").Range("A6").CurrentRegion.Address

'指定範囲をマイドキュメントに保存
Set Wpage = ActiveWorkbook.PublishObjects.Add _
    (SourceType:=xlSourceRange, _
    Filename:=MYDOCUMENTS & "\" & MYHTM & ".htm", _
    Sheet:="Sheet1", Source:=MYRANGE, Title:=MYTITLE)
Wpage.Publish True
End Sub

指定範囲が、セルA6を含むデータ範囲の場合は指定範囲を
'MYRANGE = Sheets("Sheet1").Range("A6").CurrentRegion.Address
のアポストロフィーを取って使用します。


シートを開くたびに今日の日付にカーソルが行くようにしたい

添付ファイルを参照してください。
マクロを使います。
シート「クラスＡ」及び「クラスＢ」のシート見出しを、マウスの右ボタンのショートかつとメニューから「コードの表示」を選択し、開いたコードウィンドウで確認できます。

マクロコードは、次のようになります。

Private Sub Worksheet_Activate()
   Dim r
    For r = 3 To Range("A65536").End(xlUp).Row
    d = Now
        If d - Cells(r, 1) < 1 Then Cells(r, 1).Select: End
    Next r

End Sub

となります。


VBAで作成したユーザーフォームをExcelの画面立ち上げずに表示させる

ユーザーフォームをエクセルのシートを表示せずに表示することはできます。

次のようにすれば、エクセルのウィンドウを最小表示にできます。
Sub Auto_Open()
Application.WindowState = xlMinimized
AppActivate Application.Caption
'この後にユーザーフォームを表示
Usserform1.Show
End Sub
見本のファイルがこちらにあります。
http://kiyopon.sakura.ne.jp/soft/ALARMxls.lzh

Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh_Name 'セルA3の値が変更された時、セルA3のデータをシート名にします。 '下の"A3"の部分を修正すれば任意のセルに指定できます。 If Target.Address <> "$A$3" Then End Sh_Name = Range("A3") If Sh_Name <> "" Then ActiveSheet.Name = Sh_Name End If End Sub

	A	B	C
1	123	東京都	-4142
2	123	大阪府	6
3	123	京都府	6
4	123	滋賀県	6
5	123	北海道	-4142

シート上でマウスの右クリックのショートカットメニューを表示しないようにする

セルの「コピー」「貼り付け」ができないようにする。