pauNedのプロフィール

お世話になります。 ExcelVBAで、横の幅をいっぱいにとったときの拡大率を取得しようとしていますが、うまくいかず困っております。 With Worksheets(1).PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1000 End With で横１ページに合わせて印刷できる設定になりますが、このときの拡大率（Zoom）を変数に代入することができません。どなたか、お助けいただけないでしょうか。 どうか、よろしくお願いいたします。

excel2003で、必要無い列を一括で削除したいのですが、マクロ以外で良い方法はありますか？ （行列変換すると256を超える為、オートフィルタの横バージョンがあれば、便利だなと思ってしまいました。2007は手元に無いです）

下記のようなマクロを作成しましたが、実行するとエラーメッセージ（コンパイルエラー　SubまたはFunctionが定義されていません）が表示され止ってしまいます。 解決方法を御指導お願い致します。 Private Sub CommandButton2_Click() '得意先登録ダイアログで登録ボタンをクリック時実行 Dim check As Long '重複の有無(=0:重複せず,>0:重複) Dim insertRow As Long '挿入行位置 '入力必須項目のチェック If koudo.Text = "" Then MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If If syamei.Text = "" Then MsgBox "得意先名を入力してください", vbExclamation, "入力エラー" syamei.SetFocus Exit Sub End If '重複チェック On Error Resume Next check = 0 check = WorksheetFunction.Match(clnt(koudo.Text), Range("得意先一覧").Columns(2), 0) On Error GoTo 0 If check > 0 Then MsgBox "この得意先コードは、すでに入力されています", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If Sheets("得意先マスター").Unprotect With Range("得意先一覧") '最下行に一行挿入する insertRow = .Rows.Count .Rows(insertRow).Insert Shift:=xlDown 'データをセルに入力する .Cells(insertRow, 1) = tourokubi.Text .Cells(insertRow, 2) = koudo.Text .Cells(insertRow, 3) = syamei.Text .Cells(insertRow, 4) = huri.Text End With Sheets("得意先マスター").Protect Unload 得意先登録ダイアログ End Sub

下記のようなマクロを作成しましたが、実行するとエラーメッセージ（コンパイルエラー　SubまたはFunctionが定義されていません）が表示され止ってしまいます。 解決方法を御指導お願い致します。 Private Sub CommandButton2_Click() '得意先登録ダイアログで登録ボタンをクリック時実行 Dim check As Long '重複の有無(=0:重複せず,>0:重複) Dim insertRow As Long '挿入行位置 '入力必須項目のチェック If koudo.Text = "" Then MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If If syamei.Text = "" Then MsgBox "得意先名を入力してください", vbExclamation, "入力エラー" syamei.SetFocus Exit Sub End If '重複チェック On Error Resume Next check = 0 check = WorksheetFunction.Match(clnt(koudo.Text), Range("得意先一覧").Columns(2), 0) On Error GoTo 0 If check > 0 Then MsgBox "この得意先コードは、すでに入力されています", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If Sheets("得意先マスター").Unprotect With Range("得意先一覧") '最下行に一行挿入する insertRow = .Rows.Count .Rows(insertRow).Insert Shift:=xlDown 'データをセルに入力する .Cells(insertRow, 1) = tourokubi.Text .Cells(insertRow, 2) = koudo.Text .Cells(insertRow, 3) = syamei.Text .Cells(insertRow, 4) = huri.Text End With Sheets("得意先マスター").Protect Unload 得意先登録ダイアログ End Sub

エクセル初心者です。過去記事も読みましたが、わかりませんでしたので書き込みさせていただきます。 円グラフを作りました。 円グラフには「通信費30％」「渉外費25％」「車両費15％」・・・ と、内訳が記載されて表示されています。 作成したグラフをプロジェクターを通して大画面に写して、会議出席者に説明をしたいと思っています。 その際、例えば円グラフの「通信費30％」のところにカーソルを持っていくと、 その内訳が「電話代10,000円」「ハガキ代15,000円」「切手代5,000円」のように、 コメントが現れるようにすることは可能なのでしょうか。 わかりづらい質問で大変申し訳ございませんが、ご伝授いただけましたら幸いです。 何卒よろしくお願いいたします。