Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35209 / 76732

←次へ　｜　前へ→


	【46725】Re:重さの範囲設定

Jaka - 07/2/13(火) 12:30 -


	引用なし

	パスワード

Private Sub CommandButton1_Click()
Dim 数値 As Long, FF As Variant
数値 = Application.Ceiling(TextBox1.Value, 10)
With Worksheets("セット")
　FF = Application.Match(数値, .Columns(1), 1)
　If IsError(FF) Then
　　 MsgBox "ない"
　Else
　　 TextBox1.Value = .Cells(FF, 3).Value
　End If
End With
End Sub

1 hits

▼

【46720】重さの範囲設定 MIKAMI 07/2/13(火) 11:01