Excel VBA質問箱 IV

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

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


35634 / 76732 ←次へ | 前へ→

【46294】Re:文字列の取得
発言  ichinose  - 07/1/29(月) 18:47 -

引用なし
パスワード
   ▼かみちゃん さん:
こんばんは。


>
>Sub Sample()
> Dim rng As Range
> Dim c As Range
> Dim i As Integer
> 
> On Error Resume Next
> Set rng = Rows("2:2").SpecialCells(xlCellTypeConstants, 23)
> On Error GoTo 0
>  
> If Not rng Is Nothing Then
>  rng.Select
'これ 0 Baseなら
  ReDim vntData(rng.Count-1)
'  とした方が良いですよね? 見ていたら、気になったので。
>  i = 0
>  For Each c In rng
>   vntData(i) = c.Address(0, 0)
>   i = i + 1
>  Next
> Else
>  MsgBox "2行目には値がありません"
> End If
> For i = 0 To UBound(vntData, 1)
>  Debug.Print vntData(i)
> Next
>End Sub


私も考えました。


Sub main()
 Dim g0 As Long
 Dim myarray As Variant
 myarray = Filter(Evaluate("if(2:2<>"""",address(2,column(2:2),4),""" & _
      Chr(&HFF) & """)"), Chr(&HFF), False)
 For g0 = LBound(myarray) To UBound(myarray)
   MsgBox myarray(g0)
   Next
End Sub

0 hits

【46266】文字列の取得 okitsun 07/1/29(月) 13:40 質問
【46267】Re:文字列の取得 かみちゃん 07/1/29(月) 13:47 発言
【46278】Re:文字列の取得 okitsun 07/1/29(月) 14:55 回答
【46284】Re:文字列の取得 かみちゃん 07/1/29(月) 16:19 発言
【46294】Re:文字列の取得 ichinose 07/1/29(月) 18:47 発言
【46341】Re:文字列の取得 okitsun 07/1/31(水) 14:53 回答
【46342】Re:文字列の取得 Kein 07/1/31(水) 15:27 発言
【46346】Re:文字列の取得 okitsun 07/1/31(水) 16:47 お礼

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