Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18047 / 76732 ←次へ | 前へ→

【64129】Re:メニューバーの非表示について
発言  n  - 10/1/21(木) 1:31 -

引用なし
パスワード
   >With Me.Sheets("config")
>  v = .Range(.Cells(1), .Cells(256).End(xlToLeft).Offset(, 1)).Value
>End With
>ReDim Preserve v(1 To 1, 1 To UBound(v, 2) - 1)
なんかここ小癪ですね...orz

Private Sub barReset()
  Dim n As Long
  Dim v, vi

  With Me.Sheets("config")
    n = .Cells(256).End(xlToLeft).Column
    If n = 1 Then
      If Not IsEmpty(.Cells(1).Value) Then
        v = Array(.Cells(1).Value)
      End If
    Else
      v = .Cells(1).Resize(, n).Value
    End If
  End With
  With Application
    .CommandBars("Worksheet Menu Bar").Enabled = True
    If Not IsEmpty(v) Then
      For Each vi In v
        .CommandBars(CLng(vi)).Visible = True
      Next
    End If
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
  End With
End Sub
こっちがいいかな。
1 hits

【63991】メニューバーの非表示について らいち 10/1/8(金) 18:13 質問
【63998】Re:メニューバーの非表示について n 10/1/9(土) 16:23 発言
【64032】Re:メニューバーの非表示について らいち 10/1/11(月) 9:25 質問
【64034】Re:メニューバーの非表示について らいち 10/1/11(月) 11:44 お礼
【64035】Re:メニューバーの非表示について n 10/1/11(月) 17:16 発言
【64040】Re:メニューバーの非表示について らいち 10/1/12(火) 10:28 質問
【64041】Re:メニューバーの非表示について n 10/1/12(火) 16:04 発言
【64042】Re:メニューバーの非表示について らいち 10/1/12(火) 18:06 お礼
【64119】Re:メニューバーの非表示について らいち 10/1/20(水) 17:02 質問
【64122】Re:メニューバーの非表示について n 10/1/20(水) 20:06 発言
【64129】Re:メニューバーの非表示について n 10/1/21(木) 1:31 発言
【64134】Re:メニューバーの非表示について らいち 10/1/21(木) 14:11 質問
【64137】Re:メニューバーの非表示について n 10/1/21(木) 19:33 発言
【64138】有難う御座いました。 らいち 10/1/21(木) 19:39 お礼

18047 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free