کوچک شدن فایل های باز اکسل، هنگام اجرای هر دستور vba

**Amir Ghasemiyan** · 2025/03/28, 15:39

این خط کدتون باعث میشه سایز پنجره های اکسل تغییر کنه

کد:

Windows.Arrange xlArrangeStyleVertical

**Amir Ghasemiyan** · 2025/03/25, 12:11

سلام دوست عزیز
معمولا همچین اتفاقی نمیفته مگر اینکه خود شما بخواید سایز اکسل رو کوچیک کنید
لطفا کدهاتون رو بذارین بررسی کنم

**omid0912** · 2025/03/28, 15:07

Sub Fourteen()
Dim window1 As Window
Set window1 = ActiveWindow
Windows.Arrange xlArrangeStyleVertical
With window1

.ScrollRow = 1
.ScrollColumn = 1

.SplitRow = 0
.SplitColumn = 0
.FreezePanes = False
End With

End Sub

سلام و ممنون از شما

**Amir Ghasemiyan** · 2025/03/28, 15:39

این خط کدتون باعث میشه سایز پنجره های اکسل تغییر کنه

کد:

Windows.Arrange xlArrangeStyleVertical

**omid0912** · 2025/03/28, 19:49

درود بر شما
در شیت دیگری نیز همین کد را دارم، چرا اونجا این اتفاق نمی افتد?!
(ماسفانه من هیچ اطلاعاتی در خصوص کد نویسی ندارم)

Sub Fifteen()
With ActiveSheet.Shapes.Range(Array("Key 36"))
If .Fill.ForeColor.RGB = vbYellow Then
.Fill.ForeColor.RGB = vbWhite
ElseIf .Fill.ForeColor.RGB = vbWhite Then
.Fill.ForeColor.RGB = vbWhite
Call Macro14
End If
End With
End Sub

Sub Macro14()
Dim window1 As Window
Set window1 = ActiveWindow
Windows.Arrange xlArrangeStyleVertical
With window1
If Sheet14.Range("K_44").Select Then
.ScrollRow = 144
.ScrollColumn = 1
.SplitRow = 1
.SplitColumn = 0

End If

.ScrollRow = 144
.ScrollColumn = 1
.SplitRow = 1
.SplitColumn = 0
.FreezePanes = True
End With
End Sub

مجددا از شما تشکر می کنم.

**Amir Ghasemiyan** · 2025/03/30, 14:44

بودن یا نبودن کد خیلی مهم نیست. مهم اینه که شما کد رو فراخوانی کنید. با برداشتی که من از فایل شما پیدا کردم شما در شیت دوم شرط برقرار نمیشه و درنتیجه macro14 رو اصلا فراخوانی نمیکنید.