返回列表 上一主題 發帖

[發問] 關於第2位元非數字則自動補1個0

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-8 09:02 | 顯示全部帖子

[發問] 關於第2位元非數字則自動補1個0

如何改寫成第2位元非數字則往左補0並於M欄覆蓋填上

以下為不足7位元則自動往左把0補滿
Sub yy()

For i = 2 To 20
If Range("M" & i) <> Len("00000") Then  '
A = Range("M" & i)
MsgBox String(7 - Len(A), "0") & A
Else

End If
Next
End Sub
收藏 分享

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
2#
發表於 2015-9-8 11:30 | 顯示全部帖子
回復 2# 准提部林

取得編號代碼.rar (6.99 KB)

    已附上範例及希望取得結果,麻煩大大了

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 2015-9-8 12:44 | 顯示全部帖子
回復 4# 准提部林
感謝指導~思路真好
遇到空白列也可使用

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
4#
發表於 2015-9-8 13:02 | 顯示全部帖子
回復 4# 准提部林


    想請問
=MID(A3,2+COUNT(-LEFT(A3,2)),1)

LEFT(A3,2) 在你提供的公式內是會將 12計算成2位元嗎?
我直接單獨在儲存格測試, A1 LEFT(A3,2)  =  12
                                              A2 COUNT(A1,1) = 1
                                             A2 COUNT(A1,1) = 0
不太理解怎麼計算的

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
5#
發表於 2015-9-8 13:32 | 顯示全部帖子
回復 4# 准提部林
"=MID(A3,2+COUNT(-LEFT(A3,2)),1)"
理解了~搭配 2+ 就達成效果了
學到一招感謝

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
6#
發表於 2015-9-8 13:33 | 顯示全部帖子
回復 9# 准提部林

感謝指導~!!

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題