帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-12-9 16:00 | 只看該作者

[發問] 對應欄位問題

要怎麼將如圖的對應欄位，變成像工作表2都寫在同一個儲存格裡 (0以外的才要)

可以設置一開啟EXCEL就自動跑好嗎?

test300.rar (7.49 KB)

樓主熱帖

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

29^#

發表於 2016-12-23 13:19 | 只看該作者

回復 28# 准提部林

謝謝准大的提示
我在去測試看看!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

28^#

發表於 2016-12-23 11:20 | 只看該作者

If ln(ct2, cts + 1) <> 0 And (ln(ct2, cts + 1) <> 174 And ln(ct2, cts + 1) <> 175 And ln(ct2, cts + 1) <> 254 And ln(ct2, cts + 1) <> 255) Then
174-175-254-255 是"列號", ln(ct2, cts + 1) 是"數字", 怎對得上???

另, 程式還須考慮"可讀性", 會多次引用的, 儘量以變數代替, 免看得眼花,
IIF 這方式也可以簡化, 看起來也較易了解:
ar(cts, 1) = IIf(ar(cts, 1) = "", ln(ct2, 1) & IIf(ln(ct2, cts + 1) > 0, "+", "") & ln(ct2, cts + 1), _
ar(cts, 1) & "," & ln(ct2, 1) & IIf(ln(ct2, cts + 1) > 0, "+", "") & ln(ct2, cts + 1))
t$ = Format(ln(ct2, cts + 1), "+0;-0")
ar(cts, 1) = Replace(Trim(ar(cts, 1) & " " & ln(ct2, 1) & t), " ", ",")

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

27^#

發表於 2016-12-23 10:41 | 只看該作者

回復 c_c_lai

另外TR排機
有些問題想再問你哈哈...
我自己加的東西好像有Bug...
...
starbox520 發表於 2016-12-23 08:35

是甚麼狀況？

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

26^#

發表於 2016-12-23 09:22 | 只看該作者

回復 25# c_c_lai

可以了!!
果然是這行搞得鬼~

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

25^#

發表於 2016-12-23 09:02 | 只看該作者

回復 22# starbox520
If ins > 1 Then ln(ct2, 1) = Mid(ln(ct2, 1), ins - 1)
比較保險 (CF00M001 或者是 #CF00M02 之假設)。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

24^#

發表於 2016-12-23 08:51 | 只看該作者

回復 22# starbox520
妳把 ' ln(ct2, 1) = IIf(ins > 0, Mid(ln(ct2, 1), ins - 1), ln(ct2, 1)) ' 只截取 S#XX 或 M#XX 前面 CF00 去除。
改成 If ins > 0 Then ln(ct2, 1) = Mid(ln(ct2, 1), ins - 1)

TOP

starbox520