如何設一按鈕，就能把公式轉換過的值，取代原有的值? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何設一按鈕，就能把公式轉換過的值，取代原有的值?

返回列表下一主題上一主題發帖

[發問] 如何設一按鈕，就能把公式轉換過的值，取代原有的值?

中學生 Rank: 2

帖子: 43
主題: 9
精華: 0
積分: 79
點名: 0
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2024-5-1

3^# 跳轉到 »

發表於 2018-12-29 16:02 | 只看該作者

回復 1# iceandy6150

試用看看？我想應該還會有人寫的比我更簡短吧。
如果B的電機、油漆...等，都是固定在前面兩個，我想只需要使用MID就可。

Sub test()
x = [A1].CurrentRegion.Rows.Count
For i = 2 To x
Cells(i, "B") = Mid(Cells(i, "B"), 1, 2)
y = Application.Substitute(Cells(i, "C"), "日", ":")
y = Application.Substitute(y, "月", ":")
y = Application.Substitute(y, "年", ":")
Cells(i, "C") = Application.Text(y, "hh年mm月ss日")
Next i
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2018-12-28 11:07 | 只看該作者

上傳檔案, 才好處理~~

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題