讓按鈕維持固定位置+儲存格格式設定 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 讓按鈕維持固定位置+儲存格格式設定

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

[發問] 讓按鈕維持固定位置+儲存格格式設定

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-10-30 17:22 | 顯示全部帖子

回復 1# emma
二個按鈕維持固定在使用者的視窗之中，
這裡已問過!

顯示格式為「紅字+千分位樣式」

Sub 確定_Click()
Dim E As Shape, Rng As Range
Sheet2.UsedRange.Offset(1).Clear
Set Rng = Sheet2.UsedRange.Cells(2, 1)
For Each E In Sheet1.Shapes
If E.Type = msoFormControl And E.Name Like "Check Box*" Then
If E.OLEFormat.Object.Value = 1 Then
Rng.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
Set Rng = Rng.Offset(1)
End If
End If
Next
With Rng.CurrentRegion.Offset(1).Columns(3) '第3欄
.NumberFormatLocal = "#,##0_ "
.Font.ColorIndex = 3
End With
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-30 17:58 | 顯示全部帖子

回復 3# emma
凍結窗格是沒辦法如你所說的功能 ,加大凍結窗格的列數吧
試試自動篩選是可以的

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-10-30 21:14 | 顯示全部帖子

回復 5# emma
那要引用 API 函數你可試試,
另可用新增功能表也能替代看看

test.rar (11.56 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-10-31 18:10 | 顯示全部帖子

回復 10# emma

'If E.TopLeftCell.Offset(, 5).Value > 10 Then '不好意思，小於出貨日期十日我不知道該怎麼設
If E.TopLeftCell.Offset(, 5).Value - 10 < Date Then ' 這樣對嗎?

複製代碼

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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