2个表格中的数据互相使用

huizhuzi

ruoyunruyan 发表于 2018-6-17 21:55

If Int((i - 1) / 30) Mod 2 Then
i = i + 29
Else
Selection.Font.Name = "宋体"
Selection.Font.Size = 12

Cells(k, 1) = i
Cells(k, 2) = .Cells(i + 3, 2)
Cells(k, 3) = .Cells(i + 3, 3)
Cells(k, 6) = i + 30
Cells(k, 7) = .Cells(i + 33, 2)
Cells(k, 8) = .Cells(i + 33, 3)
k = k + 1
End If

这样插入不能设置好字体、大小，哪里出问题了？

ruoyunruyan

1. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Address = "$Q$1" Then Call QDB
   
3. End Sub
   
4. Sub QDB()
   
5. Dim i%, j%, k%
   
6. k = 3
   
7. With Sheet2
   
8. j = .[c65536].End(3).Row
   
9. For i = 1 To j
   
10. If Int((i - 1) / 30) Mod 2 Then
    
11. i = i + 29
    
12. Else
    
13. Cells(k, 1) = i
    
14. Cells(k, 2) = .Cells(i + 3, 2)
    
15. Cells(k, 3) = .Cells(i + 3, 3)
    
16. Cells(k, 6) = i + 30
    
17. Cells(k, 7) = .Cells(i + 33, 2)
    
18. Cells(k, 8) = .Cells(i + 33, 3)
    
19. k = k + 1
    
20. End If
    
21. Next
    
22. End With
    
23. <blockquote>With Sheet1.UsedRange

复制代码

插入位置不对，格式的修改在下边

huizhuzi

ruoyunruyan 发表于 2018-6-17 21:55

   ActiveSheet.PageSetup.PrintArea = Range(Cells(k, 1), Cells(k, 9)).Address
这样设置有效数据为打印区域不行的，要怎么修改呢？

huizhuzi

zjdh 发表于 2018-6-17 20:53
还真看不懂你的描述！！

ActiveSheet.PageSetup.PrintArea = Range(Cells(k, 1), Cells(k, 9)).Address
这样设置有效数据为打印区域不行的，要怎么修改呢？

huizhuzi

ruoyunruyan 发表于 2018-6-18 13:53
插入位置不对，格式的修改在下边

提示语法错误的？

huizhuzi

ruoyunruyan 发表于 2018-6-18 13:53
插入位置不对，格式的修改在下边

With Range("a3").CurrentRegion
.RowHeight = 23 '设置行高
.Borders.LineStyle = xlContinuous '边框
        .HorizontalAlignment = xlCenter ''左右居中
        .VerticalAlignment = xlCenter ''上下居中


.Offset(0, 5).Borders.LineStyle = xlContinuous

    End With

只能左边能居中，右边不行，何解？