EXCEL的問題

excelvba

john083423 2019-01-04 13:52:02 ‧ 1184 瀏覽

分享至

Range("a1").Select
For i = 1 To 12
If (Range("A" & i) = "") Then
For C0 = 1 To 500
If (Mid(Range("C" & C0), 1, 1 = "單")) Then
Range("A" & i) = Mid(Range("C" & C0), 8, 8)
End If
Next C0
End If
Next
已知IF(mid...)那行有問題要怎改

註冊單 iT邦新手 4 級 ‧ 2019-01-04 14:30:47 檢舉

當你點選範圍a1
i=1到12
co=1到500
為什麼你上面有A1下面變成A而已

a1是做啥用
A是幹嘛用

john083423 iT邦新手 5 級 ‧ 2019-01-04 14:53:44 檢舉

不然怕亂跑先指定A1
下面的A是把C1~C501有單這個字的值放到]A1~A12
比如單號:XXXXX12345678 我只要12345678這個值
先放到A1
A2可能變成123456789
因為我還會需要用到
廠商:XXXX
我不要廠商: 我可能先把他對應到B1
變成跳過A13
從A14是12345678 B14是XXXX

來杯拿鐵 iT邦新手 2 級 ‧ 2019-01-04 22:30:55 檢舉

建議程式碼放在「``` ```」中間
可讀性比較高
```
程式碼
```

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-01-04 14:53:45

最佳解答

括號配對錯誤。

把

If (Mid(Range("C" & C0), 1, 1 = "單")) Then

改為

If (Mid(Range("C" & C0), 1, 1) = "單") Then

回應 1
分享
檢舉

john083423 iT邦新手 5 級 ‧ 2019-01-07 08:30:08 檢舉

我執行完成變這樣但我是要讓它自己找到單號的單然後把單號:及採購日期...不要才用MID這個函式先傳送到A1到A12的儲存格再去應用但是現在我寫的程式碼卻變成只顯示最後一筆的單號而已請問高手們要如何解決謝謝

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙

EXCEL的問題

1 個回答

我要發表回答

標記使用者