teratail
回答率
85.46%
質問するログイン新規登録
トップVBAに関する質問EXCEl 順番の切り上げをしたい

編集履歴

回答編集履歴

3

変更

2019/03/19 05:51

投稿

sazi
sazi

スコア25206

test CHANGED
@@ -6,6 +6,6 @@
6
6
 
7
7
  B:=IF(A1=INT(A1),0,LEN(MID(A1-INT(A1),FIND(".",A1,1),LEN(A1)-FIND(".",A1,1))))
8
8
 
9
- C:=ROUNDUP(A1,B1-1)
9
+ C:=IF(B1>0,ROUNDUP(A1,B1-1),A1)
10
10
 
11
11
  ```

2

訂正

2019/03/19 05:51

投稿

sazi
sazi

スコア25206

test CHANGED
@@ -6,6 +6,6 @@
6
6
 
7
7
  B:=IF(A1=INT(A1),0,LEN(MID(A1-INT(A1),FIND(".",A1,1),LEN(A1)-FIND(".",A1,1))))
8
8
 
9
- C:==ROUNDUP(A1,B1-1)
9
+ C:=ROUNDUP(A1,B1-1)
10
10
 
11
11
  ```

1

訂正

2019/03/19 05:46

投稿

sazi
sazi

スコア25206

test CHANGED
@@ -6,6 +6,6 @@
6
6
 
7
7
  B:=IF(A1=INT(A1),0,LEN(MID(A1-INT(A1),FIND(".",A1,1),LEN(A1)-FIND(".",A1,1))))
8
8
 
9
- C:=INT((A1*10^B1+9)*10^-1)*10^-(B1-1)
9
+ C:==ROUNDUP(A1,B1-1)
10
10
 
11
11
  ```