請問頁首如何隨儲存格變動而更改內容

ASPES
個人積分：1分
文章編號：87336555

1分

樓主

2023-04-26 10:40

各位大大好,excel新手最近接手一個表格
頁首這三行字是標準模式下不會顯示,在列印跟列印預覽時才會出現
圖中頁首頭兩行,"ABC公司"跟"XYZ日誌" 這兩行都是固定不變,格式都是標楷體,字體大小20
圖中紅色這行需要顯示某段期間,是連動該表的I3跟I4儲存格
例如:I3:112/1/30 , I4:112/2/15 則紅色這行顯示112年1月30日到~2月15日

我自己google到centerheader這方式,但也看沒有懂

請問各位大大如何設定或用什麼VBA呢
謝謝大大們

2023-04-26 10:40 發佈

文章關鍵字頁首內容儲存格

錦子

錦子
個人積分：2079分
文章編號：87341057

2079分

2樓

2023-04-26 20:53

很多網上介紹的作法都是將儲存格內容用抓圖軟體將其變成圖片，再在頁首/尾以插入圖片方式插入。
但每次儲存格I3及I4中日期區間一改變，就要重新抓圖一次，看您是否能接受。

錦色如月，子耀光芒。

snare

snare
個人積分：3057分
文章編號：87341758

3057分

3樓

2023-04-26 23:08

ASPES wrote:
用什麼VBA呢

'程式碼放到工作表1，相關文字、位置，請自行修改。
'日期暫訂位置a3、a4(文字格式)

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim check As Range, d1 As String, d2 As String
    Set check = Intersect(Target, Range("A3:A4"))

    
    With Sheets("工作表1")
        
        If Not check Is Nothing And .Range("a3") Like "###/*#/*#" And .Range("a4") Like "###/*#/*#" Then
            
            d1 = Split(.Range("a3"), "/")(0) & "年" & Split(.Range("a3"), "/")(1) & "月" & Split(.Range("a3"), "/")(2) & "日"
        
            If Split(.Range("a3"), "/")(0) = Split(.Range("a4"), "/")(0) Then
                d2 = Split(.Range("a4"), "/")(1) & "月" & Split(.Range("a4"), "/")(2) & "日"
            Else
                d2 = Split(.Range("a4"), "/")(0) & "年" & Split(.Range("a4"), "/")(1) & "月" & Split(.Range("a4"), "/")(2) & "日"
            End If
        '頁首文字
            .PageSetup.CenterHeader = "&""標楷體,標準""&20Mobile01    Abc" & Chr(10) & "ghi     jkl" & Chr(10) & "&KFF0000" & d1 & " ~ " & d2 & "  測試"
            
        End If
        
        
    End With
    
    
End Sub

從 APP 打開