Excel VBA質問箱 IV

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

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


12136 / 13645 ツリー ←次へ | 前へ→

【12154】ハイパーリンクされているセルの値を取得 ぴぴ 04/3/25(木) 13:39 質問
【12155】Re:ハイパーリンクされているセルの値を取得 こうちゃん 04/3/25(木) 14:43 回答
【12162】Re:ハイパーリンクされているセルの値を取得 ぴぴ 04/3/25(木) 15:36 お礼

【12154】ハイパーリンクされているセルの値を取得
質問  ぴぴ  - 04/3/25(木) 13:39 -

引用なし
パスワード
   下記の中で、ListBoxで表示される項目が
ハイパーリンクされているセルの値のみを取得して
表示したい(ハイパーリンクされていないセルは表示されない)のですが
どの部分にどのように加えればよいのでしょうか。

Private Sub UserForm_Initialize()
Dim k
Dim iti

  For k = 2 To 100
  
  iti = Worksheets("台帳一覧").Cells(k, 2).Value
 
  If iti = "" Then
   Exit For
  End If
  
  ListBox1.AddItem (iti)
  
  Next
 
End Sub

【12155】Re:ハイパーリンクされているセルの値を...
回答  こうちゃん E-MAIL  - 04/3/25(木) 14:43 -

引用なし
パスワード
   ぴぴさん、こんにちは
>下記の中で、ListBoxで表示される項目が
>ハイパーリンクされているセルの値のみを取得して
>表示したい(ハイパーリンクされていないセルは表示されない)のですが
>どの部分にどのように加えればよいのでしょうか。

こんな感じです・・

>Private Sub UserForm_Initialize()
> Dim k
> Dim iti
>
>  For k = 2 To 100
>  
>  iti = Worksheets("台帳一覧").Cells(k, 2).Value
> 
>  If iti = "" Then
>   Exit For
>  End If
>  
  If Worksheets("台帳一覧").Cells(k, 2).Hyperlinks.Count > 0 Then
>  ListBox1.AddItem (iti)
  End If
>  
>  Next
> 
>End Sub

【12162】Re:ハイパーリンクされているセルの値を...
お礼  ぴぴ  - 04/3/25(木) 15:36 -

引用なし
パスワード
   こうちゃん さん 早速ありがとうございました。

思い通りに出来ました!

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