Apmales zīmēšana lappuses apakšdaļā pa lappusēm makro

Pārskats

Drukājot, es domāju, ka to bieži izmanto kā papīra rāmi, lai uzzīmētu apmali uz galvenes un visām četrām. Tomēr, ja papīrs ir viena lapa, apmale ir jāiezīmē tikai manuāli, bet, ja tā kļūst par vairāk nekā vienu lappusi, apmale neparādīsies katras lappuses apakšā. Ir arī manuāls re-pull atbalstu, bet, ja jūs pievienot vai noņemt līnijas vidū, jums būs atkārtoti izdarīt robežu uz visām lapām.

Šajā sadaļā ir aprakstīts, kā izmantot makro, lai automātiski zīmētu apmales katras lappuses apakšdaļā.

Operācijas apstiprinātā versija

Atbalstītā Excel versija

• 2010
• 2007
• 2003
• (Tas var darboties ar citām versijām, bet tas nav apstiprināts.)

Pārliecinieties, vai Excel versija

• 2010
• 2007
• 2003

Saturu

Ja drukājat vienu lappusi, varat uzzīmēt apmali, kas atrodas rindiņas apakšā, lai to drukātu bez problēmām.

Tomēr, ja jums ir vairāk nekā viena lappuse, apmali var uzzīmēt tikai rindas apakšā, bet apmale netiks parādīta katras lappuses apakšējā rindā. Ja vēlaties, lai apmale tiktu parādīta katrā lappusē, lappuses maiņai ir manuāli lietojiet apmali.

Tomēr, ja pievienojat vai noņemat līniju vidū, lappuses pārtraukuma līnija un apmales līnija ir nogriezta, tāpēc tā ir apgrūtinoša, jo tā atkal kļūst par atkārtotu draw.

Tāpēc es esmu gatavojas izmantot makro izdarīt robežu uz līnijas lapas izmaiņas vairumā.

Nav svarīgi, kādā veidā to sākt, jo to var palaist ar iebūvētu makro, bet paraugā es ievietoju pogu uz atsevišķas lapas un uzzīmēju apmali lappuses pārtraukumā, kad nospiežu pogu.

Ja vēlaties izplatīt kaut ko, kas jau satur makro, varat vienkārši nodot failu tādu, kāds tas ir, bet, ja vēlaties pats apkopot makro, iestatiet Excel, lai varētu apkopot makro. Informāciju par to, kā to izdarīt, skatiet sadaļā Cilnes Izstrāde parādīšana, lai iespējotu veidlapu izvietošanu un VBA programmu izstrādi .

Novietojot pogu, tiek parādīts makro reģistrācijas dialoglodziņš, tāpēc izveidosim to, lai klikšķa notikumu varētu palaist, nospiežot pogu "Jauns".

Mēs neieeiksim pārāk detalizēti par makro vai Visual Basic, tāpēc pārbaudiet to atsevišķi.

Kad tiek atvērts Visual Basic redaktors, pievienojiet šādu kodu: Jūs varat uzzīmēt apmali uz lapas izmaiņu rindas norādītajā lapā, zvanot uz šo funkciju.

Man ir komentārs par funkcijas aprakstu, tāpēc, lūdzu, pārbaudiet to.

'【概要】
'　改ページプレビューに合わせて、ページの下に黒の羅線を引きます。
'
'【引数】
'　targetSheet    : 改ページラインの描画対象シート
'  lineStyle      : 罫線のスタイル。XlLineStyle 列挙型から指定。
'  lineWeight     : 罫線の太さ。XlBorderWeight 列挙型から指定。
'  lineColorIndex : 罫線の色。XlColorIndex 列挙型から指定、またはカラー パレットのインデックス値を指定。
'
'【備考】
'  一度罫線を設定すると戻せないので注意。
Private Sub SetHPageBreakLines(targetSheet As Worksheet, _
                               Optional lineStyle As XlLineStyle = xlContinuous, _
                               Optional lineWeight As XlBorderWeight = xlThin, _
                               Optional lineColorIndex As XlColorIndex = xlAutomatic)

  ' 列の最大位置取得
  Dim maxColumn As Integer
  maxColumn = targetSheet.UsedRange.Columns.Count
    
  ' 各ページ描画
  For Each hpg In targetSheet.HPageBreaks
    Dim row As Integer
    Dim targetCell As Range
    row = hpg.Location.row - 1
    Set targetCell = targetSheet.Range(targetSheet.Cells(row, 1), targetSheet.Cells(row, maxColumn))
    
    ' 罫線のプロパティを設定する
    With targetCell.Borders(xlEdgeBottom)
      .lineStyle = lineStyle
      .Weight = lineWeight
      .ColorIndex = lineColorIndex
    End With
  Next
    
End Sub

Pogas klikšķa process ir šāds. Ja norādāt izveidotās funkcijas SetHPageBreakLines lapu, varat uzzīmēt šīs lapas apmali. Ja vēlaties norādīt arī apmales stilu, varat to norādīt ar atlikušajiem argumentiem.

Tā kā tas ir paraugs, lapas nosaukums ir norādīts tieši makro, bet es domāju, ka vispārīgāk ir dot iespēju rakstīt lapas nosaukumu šūnā un atsaukties uz šūnu.

'【概要】
'  ボタンクリックイベント
Sub ボタン1_Click()
  ' 対象シート
  Dim syoriSheet As Worksheet
  Set syoriSheet = Worksheets("ドキュメント")

  ' 罫線を設定
  Call SetHPageBreakLines(syoriSheet)

  ' 下は線のスタイル指定
  'Call SetHPageBreakLines(syoriSheet, xlContinuous, xlThin, xlAutomatic)

  MsgBox syoriSheet.HPageBreaks.Count & "ページ分の線の設定が完了しました。"
End Sub

Palaižot makro, var redzēt, ka katras lappuses apakšējā rinda ir apmale. To var pārbaudīt arī drukas priekšskatījumā.

Kā brīdinājumu es domāju, ka makro ir labi izpildīt tikai tad, ja drukā, jo robežu, kas tika iestatīta, kad makro tiek izpildīts vienu reizi, nevar atgriezt.