1

これは私のコードです

Private Sub Send_Click()
Dim cell As Range, Rng As Range
Dim strURL As String

Set Rng = Selection

For Each cell In Rng
    strURL = "http://xxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
           & cell.Value & "&message=" & cell.Offset(0, 1).Value
    Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)
Next cell

Set Rng = Nothing

End Sub

セル A で 3 つの携帯電話番号のみが強調表示され、ボタンをクリックすると、最後の番号のみが表示されます。

4

1 に答える 1

2

最初に文字列を作成するのがおそらく最も簡単です。

Dim strURL as String
strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
   & ActiveCell.Value & "&message=" & ActiveCell.Offset(0,1).Value
Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)

アクティブなセルに携帯電話番号が含まれ、そのすぐ右のセルに必要なメッセージが含まれていると仮定します。それ以外の場合は、セルを指定します。

Dim strURL as String
strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
   & Range("A1").Value & "&message=" & Range("B1").Value
Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)

範囲ワークシートを修飾する必要がある場合があります。

編集 コメントで要求されたとおり、選択したセルを循環します。

Dim cell As Range, Rng As Range
Dim strURL as String

Set Rng = Selection

For Each cell In Rng
    strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
       & cell.Value & "&message=" & cell.Offset(0,1).Value
    Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)
Next cell

Set Rng = Nothing

携帯電話番号を含むセルのみを選択してください。そうしないと、コードはメッセージにも送信しようとします。セルに次のような数値が含まれていることを確認するために、いくつかのチェックを書き込むことができます。

If IsNumeric(cell.Value) Then

または、ワークシートの列にあるものに応じて、より詳細な形式チェックを行います。

于 2013-05-01T06:59:54.247 に答える