No.6ベストアンサー
- 回答日時:
'下記ではどうでしょうか?
'ファイルが上書き等されないようにバックアップしてから試してみてください。
'B~Y列の3-14行のセルが対象です。
Sub 小数切捨()
Dim myRow As Integer
Dim myCol As Integer
Dim 列目から As String
Dim 列目まで As String
Dim 行目から As Integer
Dim 行目まで As Integer
列目から = "B"
列目まで = "Y"
行目から = 3
行目まで = 14
For myRow = 行目から To 行目まで
For myCol = Asc(列目から) To Asc(列目まで)
Cells(myRow, myCol - 64).Value = Fix(Cells(myRow, myCol - 64).Value)
Next
Next
End Sub
No.4
- 回答日時:
表示形式では切り捨てはできません。
実際に試すとおわかりかと思いますが四捨五入のみとなります。
別セルで関数にするか、マクロを組むかになります。
No.1
- 回答日時:
単純にカーソルがあるセルの数値を小数点以下切り捨てであれば、
下記のマクロではどうでしょうか?
Sub 小数切捨()
If WorksheetFunction.IsNumber(ActiveCell.Value) Then
ActiveCell.Value = Fix(ActiveCell.Value)
Else
MsgBox "エラー:セルの内容が数値ではありません。"
End If
End Sub
あとは、実際にどういうシートなのか写真でもあればいいのですが。
ありがとうございます。
Sub 小数切捨()
ThisWorkbook.Activate
Sheets(1).Select
If WorksheetFunction.IsNumber(ActiveCell.Value) Then
ActiveCell.Value = Fix(ActiveCell.Value)
Else
MsgBox "エラー:セルの内容が数値ではありません。"
End If
End Sub
このように構文を書いてみましたが、間違っているのでしょうか。
小数点以下が消えず、MSGBOXのエラーメッセージが出ました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) エクセルのセルの書式設定・ユーザー定義の条件設定について 1 2022/08/17 21:56
- Excel(エクセル) Excelで全クラスのランキング表を作成したい 4 2022/05/24 15:28
- Excel(エクセル) Excel 参照元の値を参照したい 1 2022/08/20 18:58
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/03/04 09:54
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/02/18 11:30
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/03/16 11:19
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
エクセルで特定の文字列が入っ...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
[EXCEL]ボタン押す→時刻が表に...
-
A1に入力された文字列と同じ文...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
excel 小さすぎて見えないセル...
-
【Excel関数】UNIQUE関数で"0"...
-
excelのデータで色つき行の抽出...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
EXCELマクロを使い、空白行では...
-
Excel VBAで「セルが選択された...
-
色付き行の非表示について
-
エクセル2016で時間を入力して...
-
エクセルでセルの大きさを一律...
-
直近の5個の平均を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
VBAで色の付いているセルの行削除
-
セルの色によって条件文をつけ...
-
excel 小さすぎて見えないセル...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルVBA 最終行を選んで並...
-
EXCELマクロを使い、空白行では...
-
EXCELで最後の行を固定
おすすめ情報
このような表です。もっとたくさんのセルに数値が入っています。