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

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

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

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

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 話多不如話少，話少不如話好。

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