Új hozzászólás Aktív témák

• #43724 Delila_1 veterán lappy #43721

  Új Válasz 2020-04-28 06:24:58 #43724

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lappy #43721 üzenetére

  Remekül lehet formázni Excel lapot Weisz Tamás makrójával. Egy régi folyóiratban írta.

  

  A két gomb makrója:
  Private Sub cmdHeight_Click()
nHeight = Val(TextHeight.Value)
If nHeight <= 0 Then
MsgBox "A magasságnak nagyobbnak kell lennie nullánál!", vbExclamation, "Cellaméretek"
Exit Sub
End If
If nHeight > 144.2 Then
MsgBox "A legnagyobb sormagasság: 144,2 mm!", vbExclamation, "Cellaméretek"
Exit Sub
End If

For nArea = 1 To Selection.Areas.Count
For nRow = 0 To Selection.Areas(nArea).Rows.Count - 1
Rows(Selection.Areas(nArea).Row + nRow).RowHeight = _
Application.CentimetersToPoints(nHeight / 10)
Next nRow
Next nArea
End Sub

  Private Sub cmdWidth_Click()
nWidth = Val(TextWidth.Value)
If nWidth <= 0 Then
MsgBox "A szélességnek nagyobbnak kell lennie nullánál!", vbExclamation, "Cellaméretek"
Exit Sub
End If
nPoints = Application.CentimetersToPoints(nWidth / 10)

If nWidth > 473.6 Then
MsgBox "A maximális szélesség: 473,6 mm", vbExclamation, "Cellaméretek"
Exit Sub
End If

Application.ScreenUpdating = False
For nArea = 1 To Selection.Areas.Count
For nCol = 0 To Selection.Areas(nArea).Columns.Count - 1
nColNo = Selection.Areas(nArea).Column + nCol

While Columns(nColNo + 1).Left - Columns(nColNo).Left - 0.1 > nPoints
Columns(nColNo).ColumnWidth = Columns(nColNo).ColumnWidth - 0.1
Wend
While Columns(nColNo + 1).Left - Columns(nColNo).Left + 0.1 < nPoints
Columns(nColNo).ColumnWidth = Columns(nColNo).ColumnWidth + 0.1
Wend
Next nCol
Next nArea
Application.ScreenUpdating = True
End Sub

• #43722 Fferi50 Topikgazda lappy #43721

  Új Válasz 2020-04-27 22:16:11 #43722

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz lappy #43721 üzenetére

  Szia!
  Talán érdemes lenne privire váltani. Ott olyan információkat is meg lehet osztani, amit egyébként nyilvánosan nem tennél.
  Szerintem Excelben is lehet szép formázásokat csinálni, aztán sablonként elmenteni. Utána azt használni. Ha mutatnál mintákat (amiket Wordben gondoltál kivitelezni), megnéznénk, milyen lenne Excelben.
  Üdv.

Új hozzászólás Aktív témák