[[20180517005352]]　『スピンボタンでセル内容を表示』（a-su）　ページの最後に飛ぶ

『スピンボタンでセル内容を表示』（a-su）

セルのc1からz1までのセルにデータがあります。

アクティブセル（例えばc3のセルが選択していば、c1を選択させる)のデータをtextbox1に表示させ、スピンボタンを使用してc1からz1での選択したいのですが。

    a     b     c    　  d     　 e    ～　 　z
1            リンゴ   みかん   ぶどう  　　バナナ
2
3

よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

ども＾＾

スピンボタンはシート上に配置しているのですか？
それともユーザーフォーム上に配置しているのですか？

スピンボタンといってもいろんな状況が想像されるので、
その辺を詳しく説明してください。

あと、選択が主目的ですか？
列番号が指定出来ればいいですよね？

（まっつわん） 2018/05/17(木) 08:04

分かりづらい説明でした。すみません。
ユーザーフォームに配置してます。
スピンボタンで、セルデータを検索しますので、c1からz1のセル以外は表示できない設定にしたいと思っています。
（a-su） 2018/05/17(木) 11:18

スピンボタンは数値を上下させるものなので、文字列選択ならコンボボックスを使うのが普通なのですが…。

とりあえず、スピンボタンのMaxは23に設定しておいてから、以下とか。

 Private Sub SpinButton1_Change()
    TextBox1.Text = ActiveSheet.Cells(1, SpinButton1.Value + 3).Text
 End Sub
（???） 2018/05/17(木) 11:26

Option Explicit

Dim mrngTarget As Range

Private Sub UserForm_Initialize()

    Dim i As Long

    Set mrngTarget = ActiveSheet.Range("C1:Z1")
    If Intersect(mrngTarget, ActiveCell.EntireColumn.Cells(1)) Is Nothing Then
        i = 1
    Else
        i = ActiveCell.Column - mrng.Column + 1
    End If

    With Me.SpinButton1
        .Min = 1
        .Max = mrngTarget.Count
        .Value = i
    End With

    Set_ラベルに表示
End Sub

Private Sub SpinButton1_Change()

    Set_ラベルに表示
End Sub

Private Sub Set_ラベルに表示()

    Me.Label1.Caption = mrngTarget(Me.SpinButton1.Value).Value
End Sub
（まっつわん） 2018/05/17(木) 11:42

皆様ありがとうございました。
目的が達成できました。
（a-su） 2018/05/18(金) 06:02

コメント返信：

[ 一覧(最新更新順) ]

[[20180517005352]] 『スピンボタンでセル内容を表示』（a-su） ページの最後に飛ぶ

[[20180517005352]]　『スピンボタンでセル内容を表示』（a-su）　ページの最後に飛ぶ