[[20050223121323]]　『ドロップダウンリストの幅を変更』（maru）　ページの最後に飛ぶ

『ドロップダウンリストの幅を変更』（maru）

ドロップダウンリストの幅の変更方法ご存知の方
教えて下さい。

Excel2003・WindowsXP

 入力規則のことでしょうか。
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As Shape
Dim BtnWidth As Single
Dim MyName As String
　 
On Error Resume Next
MyName = ActiveSheet.Shapes(1).Name
    With ActiveCell
        Select Case (.Row >= 12) * (.Row <= 62) * (.Column = 15)
        Case True
            If .Validation.Type = xlValidateList Then
                Set s = ActiveSheet.Shapes(MyName)
                BtnWidth = s.Width - .Width
                s.Width = 150
                s.Left = .Left + .Width - s.Width + BtnWidth
                Set s = Nothing
                '自動表示をしたくない場合はSendKeys　"%{down}"　を削除してください。
                SendKeys "%{down}"
            End If
        End Select
    End With
End Sub

 （川野鮎太郎）

これはThisWorkBookに書くんですよね？
何も変化しないんですよ
どうしてでしょうか？

 ThisWorkBookではなく、シートモジュールです。

 （川野鮎太郎）なんかレスのタイミングがおかしい・・・(^_^A;

あっすいません主題の方とは別人です。
ここ見るといいかもみたいなレスあったんでここで聞いてみました

でも幅変更しないですけど
川野さんの式そのまま使ってもダメって事ですよね？

 入力規則を設定しているシートモジュールに貼り付けるのですが・・・。
 Select Case (.Row >= 12) * (.Row <= 62) * (.Column = 15)
 12行から62行で15列（O列）が対象ですので、そちらのシートに合わせて変更してください。

 （川野鮎太郎）

Select Case (.Row = 107) * (.Column >= 6) * (.Column <= 80)

107行の6列Fから80列CBまでって設定したら
入力規則があるセルクリックするごとにオートシェイプ画像が勝手に動くんですけど
なんででしょうか？

コメント返信：

[ 一覧(最新更新順) ]

[[20050223121323]] 『ドロップダウンリストの幅を変更』（maru） ページの最後に飛ぶ

[[20050223121323]]　『ドロップダウンリストの幅を変更』（maru）　ページの最後に飛ぶ