수요일, 06 July 2022
  1 답글
  5.7K 방문
0
투표
취소
모두를 굿모닝,

ho trovato un codice molto util sul sito che ingrandisce la cella una volta selezionata. tuttavia la ingrandisce come immagine e quindi non è possibile cambiarne il contenuto, cosa che invece vorrei 요금.....in pratica vorrei ingrandire la cella selezionandola per poi correggerne il contenuto, se neescessario.... nel seguito il Codice....GRAZIE!!!!!!!!


Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub

0
투표
취소
안녕,

VBA 코드로 확대된 셀은 편집할 수 없습니다. 그러나 Excel 용 Kutools를 사용할 수 있습니다. 더 큰 포뮬러 바 특징 :

더 큰 공식.png

컴퓨터에 Kutools for Excel이 설치되어 있지 않은 경우 아래 링크를 클릭하여 다운로드하십시오. 추가 기능은 30일 동안 전체 기능 평가판을 제공합니다. https://www.extendoffice.com/product/kutools-for-excel.html

아만다
첨부 파일 (1)
  • 페이지 :
  • 1
이 게시물에 대한 답변이 없습니다.