ベストアンサー

エクセルVBA

2005/03/31 05:40

直線を引いといて条件によって表示させたりさせなかったりしたいのですがvisibleを使うと思うのですが直線1.Visible = False だとエラーになってしまいます。どこが間違っているか教えてもらえますか、おねがいします。

satooo
お礼率39% (127/321)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

stouma
ベストアンサー率35% (142/399)

2005/03/31 06:26 回答No.1

Officeのバージョンが不明なので2003で記載させていただきます。 Sheet1.Shapes("直線 1").Visible = msoFalse にて動作すると思います。

質問者

お礼 2005/03/31 14:55

ありがとうございました。すんなり成功しました。

関連するQ&A

エクセルVBAでShapesまたはDrawingObjects

シート上のフォームなどを表示/非表示するためtest04を書きましたが、「実行時エラー438　オブジェクトはこのプロパティまたはメッソッドをサポートしていません」となります。しかし、Test05のように同じことをForNextで回せばうまくいきます。また、Test06のようにShapesをDrawingObjectsに書き換えただけでもうまくいきます。では、Test04がエラーになるのはなぜでしょうか？ Sub test04() With ActiveSheet.Shapes If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub Sub test05() For Each sp In ActiveSheet.Shapes If sp.Visible = False Then sp.Visible = True Else sp.Visible = False End If Next End Sub Sub test06() With ActiveSheet.DrawingObjects If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub
エクセルVBAの質問

エクセルVBAの質問こんにちは。マクロ初心者です。事前にネット検索をいろいろしたのですが、どうにも解決できませんでしたので質問させてください・・。以下のようなマクロがあるとします。 With ActiveSheet.PivotTables(1).PivotFields("勘定科目") .PivotItems("仮受消費税").Visible = False .PivotItems("仮払消費税").Visible = False .PivotItems("現金").Visible = False .PivotItems("仕入").Visible = False .PivotItems("仕入戻り高").Visible = False .PivotItems("受取手形").Visible = False .PivotItems("買掛金").Visible = False .PivotItems("売掛金").Visible = False .PivotItems("売上").Visible = False .PivotItems("仮受金").Visible = False .PivotItems("未払消費税").Visible = False End With フィールドに示される「勘定科目」で、いくつか科目を指定していますが、月によっては、上記勘定科目を使用しないときもあります。この状態でマクロを実行するとエラーになってしまいます。このとき、例えば「以下の科目があれば適用し、見あたらなければスルーする」というような一文を加えたいのですが、どうしたら良いでしょうか。お教えください、宜しくお願いいたします。
EXCEL ツールバーを非表示にするには（VBA)

EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。 VBAで下記のように記述するとエラーが返ります。 Private Sub Workbook_Open() CommandBars(3).Visible = False End Sub 教えて頂けると幸いです。
エクセル　VBAについて

Private Sub Workbook_Open()　プロシージャーにてapplication.visible=falseを記述し、Userformのみ表示している状態で、違うエクセルファイルを開くと、表示されません。違うエクセルファイルを開いた時に自動でエクセルが表示できるような対象法を教えてください。お願いします。
エクセル　VBA　ＳHeetの隠し

エクセルマクロでThisWorkbookの記述に下記のようにしました！つまりSheet２を隠す為にしました！ Sheet2はマスターなのでそこを使用者に触らせないように！と思いしましたが・・・いざ、ファイルを開くと｛マクロを有効にする｝をクリックしすと｛編集の為にロックされています｝と表示され読み取り専用になってしまいます！記述が間違っているのでしょうか？しかもファイルを閉じるとエラー表示されエラーを報告を送信しますか？と必ず表示されます！他のファイルは問題なく開いたり閉じたり出来ます。やはり、記述の問題なのでしょうか？教えて下さい！ Private Sub Workbook_Activate() Dim Msg As String, Sn As Variant Sheets("入力").Visible = True Sheets("Sheet2").Visible = False Sheets("グラフ").Visible = True Sheets("入力").Activate UserForm1.Hide End Sub
エクセルVBAで、非表示にしたエクセルが印刷後に表示されてしまう

Excel97を使用しています。ブックを開いた時に、Application.Visible = Falseでエクセルを非表示にしてから、ユーザーフォームだけ表示させる設定にしています。このユーザーフォーム上のボタンで印刷をするのですが、印刷が終了すると、ユーザーフォームの後ろにブックが表示されてしまいます(タイトルバーだけの時もあります)。しかもユーザーフォームがまだ表示されているのに、エクセルの「閉じる」ボタンが有効になってしまいます。印刷のコードの前や後ろにもApplication.Visible = Falseを書いてみたのですがうまくいきません。ブックを常に非表示にしておくにはどうしたらよろしいでしょうか？ご存知の方、どうぞよろしくお願いします。
Excel VBA 自身を非表示にした時の解除方法

Excel2010でVBAのコードデバッグ中に Excelアプリケーションのウインドウの中に Excelブック(シート)が表示されなくなってしまったため一度、Excelアプリケーションを終了して再びデバッグ中のExcelブックを開いたのですがそれでも Excelアプリケーションのウインドウだけが表示されて、開きたいExcelブック(シート)は表示されません。おそらく、VBAのコードの中の Set wb = Workbooks.Open(fileName:=filePass, ReadOnly:=True) ActiveWindow.Visible = False の ActiveWindow.Visible = False のコードが自分自身を非表示にしてしまったのではないかと思われます。イミディエイトウィンドウに ActiveWindow.Visible = True と入力してもウインドウが表示されていないのでエラーになります。どのようにすれば非表示の状態から表示の状態に戻すことができるのでしょうか。
エクセルVBA/非表示シートの使い方

度々よろしくお願いします。シート(1)が入力用、シート(2)が計算および並び替え用、シート(3)が編集表示用として、シート(2)を常に非表示にしておきたいのです。非表示のまま、記述の対象とする方法というのはあるのでしょうか？なければ、 Sheets(2).Visible = True　⇔　False で挟む方法が一般的なのでしょうか？
エクセル　VBA　エクセルの表示について

下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub
エクセルのマクロを有効にしないと表示しないようにする方法

エクセルでマクロを有効にしないと、シートが表示されないように設定したいのですが、下記の様に(ほかの方の投稿から)入力すると三行目がエラーになります。素人なので、よくわかりません。どのようにしたら、マクロを有効にしないと全てのシートを表示しないようにできるのでしょうか？　ご教授いただけますでしょうか Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(\"Sheet1\").Visible = False Sheets(\"Sheet2\").Visible = False ActiveWorkbook.Protect Password:=\"error123\" End Sub Private Sub Workbook_Open() ActiveWorkbook.Unprotect Password:=\"error123\" Sheets(\"Sheet1\").Visible = True Sheets(\"Sheet2\").Visible = True Sheets(\"Sheet1\").Select End Sub
EXCEL VBA　これであっていますか？

エクセルに地図を貼り付け、その中のある地点Aから半径１キロ、２キロ、３キロといった具合に円を描いています。ある地点B、Cも同様に円があります。セルに“A” と入力した際に該当する地点の円（１キロ、２キロ、３キロの3種類）を赤く表示し、終了すると円が消える（線なしに変わる）ようにするために以下のようなＶＢＡを組みました。が、円が２つしか赤くならなかったり、ばあいによっては「インデックスが境界を超えています」とエラーが出たりします。どうしたら良いか教えてください。 Sub iro() Dim i As Variant i = InputBox("表示する地点を指定してください", "地点指定") If i = "A" Then ActiveSheet.Shapes(1).Select ActiveSheet.Shapes(2).Select ActiveSheet.Shapes(3).Select Replace:=False hyoji MsgBox "表示を終了してよろしいですか", vbOKOnly ActiveSheet.Shapes(1).Select ActiveSheet.Shapes(2).Select ActiveSheet.Shapes(3).Select Replace:=False modosu ElseIf i = "B" Then ActiveSheet.Shapes(4).Select ActiveSheet.Shapes(5).Select ActiveSheet.Shapes(6).Select Replace:=False hyoji MsgBox "表示を終了してよろしいですか", vbOKOnly ActiveSheet.Shapes(4).Select ActiveSheet.Shapes(5).Select ActiveSheet.Shapes(6).Select Replace:=False Else MsgBox "指定した地点がありません", vbOKOnly End If End Sub Sub hyoji() Selection.ShapeRange.Line.Visible = msoTrue '「線なし」に設定されている場合、線を表示 Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 Range("A1").Select End Sub Sub modosu() Selection.ShapeRange.Line.Visible = msoFalse '「線なし」に設定 Range("A1").Select End Sub
vbaレポート名の指定が間違っている！。

vbaレポート名の指定が間違っている！。 stdocnameの中身も確認しました。でも下消又は上消の処理へ行くと上記エラーが表示されます。この文のReports!stdocname!直線103.Visible = True書き方がおかしいようです。どなたかご指南いただけますでしょうか。よろしくお願い致します。 '*** stdocname(判定で指定されたレポート)を仮に開く DoCmd.OpenReport stdocname, acViewPreview '*** 消線の種類で印刷処理選択/消無は通常印刷 ---> 消線と月消を判定 If Forms!メイン画面![リストDELSEN] = "下消" Then GoTo SetLowerLine End If If Forms!メイン画面![リストDELSEN] = "上消" Then GoTo SetUpperLine End If GoTo Insatumae '*** 下消処理 SetLowerLine: Reports!stdocname!直線103.Visible = True Reports!stdocname!直線104.Visible = True Reports!stdocname!直線105.Visible = True Reports!stdocname!直線106.Visible = True Reports!stdocname!直線107.Visible = True '*** 下消時の月消処理(00は処理しない) Format ("00") ii = Forms!メイン画面![テキストDELTUKI] If ii = "00" Then Else Reports!stdocname!("直線A" & "ii").Visible = True Reports!stdocname!("直線B" & "ii").Visible = True Reports!stdocname!("直線C" & "ii").Visible = True End If GoTo Insatumae '*** 上消処理 SetUpperLine: Reports!stdocname!直線103.Visible = True Reports!stdocname!直線104.Visible = True Reports!stdocname!直線105.Visible = True Reports!stdocname!直線106.Visible = True Reports!stdocname!直線107.Visible = True '*** 上消時の月消処理(00は処理しない) Format ("00") ii = Forms!メイン画面![テキストDELTUKI] If ii = "00" Then Else Reports!stdocname!("直線A" & "ii").Visible = True Reports!stdocname!("直線B" & "ii").Visible = True Reports!stdocname!("直線C" & "ii").Visible = True End If GoTo Insatumae '*** 印刷前処理 Insatumae:
エクセルマクロの条件コード

お世話になります。自社便だけのデータ抽出のため下のようなマクロにしたところ、データ上にどれか１便（例えば「西濃便」）がないとエラーとなります。全ての便が揃っていなくともエラーにならないようにするためには、どうしたら良いでしょうか？ With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("総数") .Orientation = xlDataField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("便名") .PivotItems("ヤマト便").Visible = False .PivotItems("佐川便").Visible = False .PivotItems("日通便").Visible = False .PivotItems("西濃便").Visible = False .PivotItems("チャーター便").Visible = False End With Application.CommandBars("PivotTable").Visible = False End Sub
エクセルマクロの条件コード

お世話になります。自社便だけのデータ抽出のため下のようなマクロにしたところ、データ上にどれか１便（例えば「西濃便」）がないとエラーとなります。全ての便が揃っていなくともエラーにならないようにするためには、どうしたら良いでしょうか？ With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("総数") .Orientation = xlDataField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("便名") .PivotItems("ヤマト便").Visible = False .PivotItems("佐川便").Visible = False .PivotItems("日通便").Visible = False .PivotItems("西濃便").Visible = False .PivotItems("チャーター便").Visible = False End With Application.CommandBars("PivotTable").Visible = False End Sub
エクセルのＶＢＡを教えて下さい。

Private Sub OptionButton1_Click() Range("A15").Select Selection.Font.ColorIndex = 1 Range("B12").Select Selection.Font.ColorIndex = 1 Range("A18").Select Selection.Font.ColorIndex = 2 Range("B18").Select Selection.Font.ColorIndex = 2 Sheets("シート1").Image1.Visible = False Sheets("シート1").Image2.Visible = True End Sub 上記のようなプログラムがありますが、たとえば、以下をまとめてコンパクトに出来ますか？ Range("A15").Select Selection.Font.ColorIndex = 1 Range("B12").Select Selection.Font.ColorIndex = 1 オートシェイプを利用して画像をエクセル内に作りました。その画像を表示、非表示させたいのですが、どのようにすればよいでしょうか？よろしくお願いします。
EXCEL の　auto_open　で開けない

EXCEL の　auto_open　で Application.Visible = True とすべきところを間違えて Application.Visible = False してしまいましたこれだと見えなくなってしまうのでなんとか表示させる方法があったら教えてください
EXCELのVBAで質問です。

Sub Sheet_COPY() Sheets("電圧降下計算書").Visible = True Sheets("電圧降下計算書").Copy Before:=Sheets("電圧降下計算書") Sheets("電圧降下計算書").Visible = False End Sub 上記のプログラムを1行づつ説明していただけませんでしょうか？
エクセル2000VBAでオブジェクトの指定

エクセル2000VBAでオブジェクトの指定ワークシート上にボタン、チェックボックス、コンボボックス等のコントロールがあります。（OLEオブジェクトではありません、フォームのオブジェクトです。）そして、それらのすべてが表示されているわけではなく、中にはVisible=False で非表示にされているものもあります。またフォーム以外にもワードアート、ピクチャー等のオブジェクトも配置されています。このうち、現在表示されているボタン、チェックボックス、コンボボックス等のコントロールだけを非表示にし、その後再度表示させたいのです。（最初から非表示のものは表示させない）一応、以下のようなVBAコードで目的は達成されます。 Sub TEST01() 　　Dim ob As Object 　　Dim buf As Boolean, myAry As Variant 　　With ActiveSheet 　　　　　　Application.ScreenUpdating = False '画面更新停止　　　　For Each ob In .DrawingObjects 'Shapesではダメ　　　　　　If ob.Visible = True Then '可視なら　　　　　　　　Select Case TypeName(ob) '以下に該当すれば選択　　　　　　　　　　Case "Button": ob.Select (False) 　　　　　　　　　　Case "CheckBox": ob.Select (False) 　　　　　　　　　　Case "DropDown": ob.Select (False) 　　　　　　　　　　Case "Spinner": ob.Select (False) 　　　　　　　　End Select 　　　　　　End If 　　　　Next ob 　　　　　　　　If TypeName(Selection) <> "Range" Then '対象があれば　　　　　　buf = True 　　　　　　Set myAry = Selection 　　　　　　.Range("A1").Select 　　　　　　myAry.Visible = False '非表示に　　　　End If 　　　　Application.ScreenUpdating = True '画面更新停止解除　　　　　　　　If buf Then 　　　　　　MsgBox "非表示にしました。" 　　　　　　myAry.Visible = True '表示　　　　　　MsgBox "再度表示しました。" 　　　　　　Set varAry = Nothing 　　　　Else 　　　　　　MsgBox "非表示にする対象はありません。" 　　　　End If 　　　　　　End With End Sub 質問は２つですが、どちらかへの回答でもかまいません。１．上記コードでは対象のオブジェクトをSelectしてから Set myAry = Selection　で変数を定義しましたが、いちいちSelectしなくともよい方法を知りたいのです。多分、対象のオブジェクトを配列に取り込めばいいのでしょうが、やり方がわかりません。２．上記コードではいちいち Case "Button" Case "CheckBox" などと、コントロールの種類を列記していますが、これを列記しないでもコントロールだと識別する方法はないのでしょうか？お知恵をお貸しください。
エクセル　VBA

エクセルで指定したフォルダからシート１のA１セルに記入された名前のテキストファイルを開くマクロを作りました変数filepassがセルA1に記入されたファイルのパスのとして Workbooks.OpenText filename:=filepass, StartRow:=1 _ , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1) しかしこのままだと指定したフォルダ（filepass)にファイルがなかったときエラーになりますもしファイルがなかったときに何かメッセージを表示させたいのですがどのようにすればよいのでしょうかどなたか　教えてください VBAは素人です　よろしくお願いします
【Excel VBA】ワークシートの表示

Excel 2013で以下のコードを実行し、非表示にしているワークシートの表示を試みましたが、上手く機能しませんでした。コード自体にエラーはなく、該当シートのVisibleプロパティを確認すると xlSheetVisibleに変わっているのですが、実際のシートは非表示のままでした。どう対処すればワークシートを表示することが可能でしょうか？ ==================== If actsht = tmp(i) Then If Sheets(元データ).Visible = False Then Sheets(元データ).Visible = True End If End If ====================

エクセルVBA

質問者が選んだベストアンサー

お礼 2005/03/31 14:55

関連するQ&A

エクセルVBAでShapesまたはDrawingObjects

エクセルVBAの質問

EXCEL ツールバーを非表示にするには（VBA)

エクセル　VBAについて

エクセル　VBA　ＳHeetの隠し

エクセルVBAで、非表示にしたエクセルが印刷後に表示されてしまう

Excel VBA 自身を非表示にした時の解除方法

エクセルVBA/非表示シートの使い方

エクセル　VBA　エクセルの表示について

エクセルのマクロを有効にしないと表示しないようにする方法

EXCEL VBA　これであっていますか？

vbaレポート名の指定が間違っている！。

エクセルマクロの条件コード

エクセルマクロの条件コード

エクセルのＶＢＡを教えて下さい。

EXCEL の　auto_open　で開けない

EXCELのVBAで質問です。

エクセル2000VBAでオブジェクトの指定

エクセル　VBA

【Excel VBA】ワークシートの表示

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセルVBA

質問者が選んだベストアンサー

お礼 2005/03/31 14:55

関連するQ&A

エクセルVBAでShapesまたはDrawingObjects

エクセルVBAの質問

EXCEL ツールバーを非表示にするには（VBA)

エクセル VBAについて

エクセル VBA ＳHeetの隠し

エクセルVBAで、非表示にしたエクセルが印刷後に表示されてしまう

Excel VBA 自身を非表示にした時の解除方法

エクセルVBA/非表示シートの使い方

エクセル VBA エクセルの表示について

エクセルのマクロを有効にしないと表示しないようにする方法

EXCEL VBA これであっていますか？

vbaレポート名の指定が間違っている！。

エクセルマクロの条件コード

エクセルマクロの条件コード

エクセルのＶＢＡを教えて下さい。

EXCEL の auto_open で開けない

EXCELのVBAで質問です。

エクセル2000VBAでオブジェクトの指定

エクセル VBA

【Excel VBA】ワークシートの表示

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　VBAについて

エクセル　VBA　ＳHeetの隠し

エクセル　VBA　エクセルの表示について

EXCEL VBA　これであっていますか？

EXCEL の　auto_open　で開けない

エクセル　VBA

カテゴリ
一覧

専門家に質問してみよう
専門家登録