ユーザーフォームを使用して、ユーザーが新しい情報/データをインポートするためのテーブルがあります。
ファイルに正しくラベルが付けられていないため、ユーザーにドキュメント名を入力してもらいたい(あまり気にしない)テキストボックスをハイパーリンクのラベルにし、ユーザーがパスを選択した後、ファイルを適切なフォルダに移動しました。
Private Sub cmd_ADD_Click()
'Copy input values to table2.
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table2")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add
Dim Label17 As String
Dim txtDrawing As String
With newrow
この行は元々機能していました
.Range(13) = txtDrawings.Value
ハイパーリンクとして追加する場合、その値が必要になります。私はこれを試しました...
.Range(13).Hyperlinks.Add(Anchor:=.Range(13), _
Address:=Label17, _
ScreenTip:="DRAWING", _
TextToDisplay:=txtDrawings.Value)
この...
.Range(13) = .Hyperlinks.Add(Label17, Me.txtDrawings.Value)
End With
End Sub
これは私のために働いた
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add
With newrow
.Range(13).Hyperlinks.Add Anchor:=.Range(13), _
Address:=Label17.Caption, _
ScreenTip:="DRAWING", _
TextToDisplay:=txtDrawings.Value
End With
Anchor:
コードの前に角かっこを削除します。また、を削除しますOn Error Resume Next
。上記を試してくださいDim Label17 As String
とを削除しますDim txtDrawing As String
。それらはコントロールです。この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加