Excel VBA質問箱 IV

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

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


32704 / 76734 ←次へ | 前へ→

【49264】Re:インプットボックスの使い方について
回答  neptune  - 07/5/29(火) 23:15 -

引用なし
パスワード
   ▼TOKU さん:

こんにちは

ザットしか見てませんが、
>インプットボックスを使って選択した範囲のセルに対して
>0.04より大きい値は小数第1位で表し、0.04以下は小数第2位で表したい。
>といった小数桁数を自動変換させたいのですがうまく行きません。
>
>
>下記にコードを書きましたのでどなたかご指導下さい。
>
>Sub 少数桁数自動表示()
>
>  Dim myAns As Variant
>  On Error Resume Next
   dim r as range
>  
>  Set myAns = Application.InputBox("少数桁数自動表示したい箇所をマウスで選択してください。", Type:=8)
>  If myAns Is Nothing Then Exit Sub
>    myAns.Activate
  for each r in myans
   'それぞれのセルにおいて判断して処理
  next

>  If myAns.Value > 0.04 Then
>    myAns.Value.Select
     Valueを指定するとプロパティを参照してしまう。
     この場合はエラーになりませんか?
     ex:r.NumberFormatLocal = "0.0_ "


>    Selection.NumberFormatLocal = "0.0_ "
>  Else
>    myAns.Value.Select
>    Selection.NumberFormatLocal = "0.00_ "
>  End If
>
>End Sub

3 hits

【49263】インプットボックスの使い方について TOKU 07/5/29(火) 22:30 質問
【49264】Re:インプットボックスの使い方について neptune 07/5/29(火) 23:15 回答
【49265】Re:インプットボックスの使い方について TOKU 07/5/29(火) 23:30 発言
【49268】Re:インプットボックスの使い方について りん 07/5/30(水) 1:28 回答
【49299】Re:インプットボックスの使い方について TOKU 07/5/30(水) 18:54 お礼

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