入力ボックスvbaは値の代わりにセル番号を表示します

Question

私は、セル値をクリックするようにユーザーに求める次のコードを持っています。値が選択されると

Dim sDate As Range 
On Error Resume Next 
    Application.DisplayAlerts = False 
     Set sDate = Application.InputBox(Prompt:= _ 
      "Please select start date.", _ 
       Title:="Start Date", Type:=8) 
On Error GoTo 0 
    Application.DisplayAlerts = True 
    If sDate Is Nothing Then 
     Exit Sub 
    Else 
     sDate.Font.Bold = True 
    End If 
End Sub 

入力ボックスは、しかし、私は$ A 3 B $ B3ディスプレイをクリックして、たとえば言うことができます。私は$ b $ 3の中にある値を表示したいと思います。たとえば、17-Junが$ b $ 3の中にあった場合、入力ボックスに17-Junと$ b $ 3は表示されません。

Answer 1

もう1つの答えは、ユーザーフォームを使用することです。

このような、ユーザーフォームを作成します。

注： "OK" ボタンがフォームの "OK" と命名し、白のテキストボックスは "dateBox" である

さをコード、使用：

は

Private Sub Ok_Click() 
ActiveCell.Font.Bold = True 
UserForm1.Hide 
End Sub 

その後ワークシートモジュールで、これを置く：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Cells.Count = 1 Then UserForm1.dateBox.Value = Target.Value 
End Sub 
Sub bold_Date2() 
UserForm1.Show vbModeless 
End Sub 

その後bold_date2()を実行します。

Answer 2

私はあなたがユーザーから入力を受け取り、単一のセルだけが提供されると仮定していることを理解します。また、選択したセルの値を取得し、フォントスタイルを太字に設定する必要があります。

まず、選択したセル参照を取得し、Fontプロパティを使用してフォントスタイルを設定し、そのコンテンツを取得するためのValueプロパティを読み込みます。

Set sDate = Application.InputBox(Prompt:= _ 
      "Please select start date.", _ 
       Title:="Start Date", Type:=8) 

    sDate.Font.Bold = True 
    MsgBox ("Selected cell's value is: " & sDate.Value) 

Answer 3

これはどのように機能しますか？

Sub bold_Date() 
Dim sDate As Range 
On Error Resume Next 
Application.DisplayAlerts = False 
Set sDate = Application.InputBox(Prompt:="Please select start date.", Title:="Start Date", Type:=8) 

If sDate.Cells.Count > 1 Then Set sDate = sDate.Cells(1, 1) 
MsgBox ("Date is: " & sDate.Text) 

Application.DisplayAlerts = True 

If sDate Is Nothing Then 
    Exit Sub 
Else 
    sDate.Font.Bold = True 
End If 
End Sub 

範囲を選択した後、日付付きのメッセージボックスを挿入します。また、複数のセルをチェックしています。複数のセルが選択されている場合は、その範囲内の最初のセルが新しいsDateとして使用されます。