CAD、excel与房地产测绘的应用
部分代码<BR> BZZH = 0<BR> Dim FHFSet X1 = New Excel.Application
X1.Visible = True<BR> X1.SheetsInNewWorkbook = 2<BR> Set zsbworkbook = X1.Workbooks.Add<BR> Oid = Oid + 1<BR> X1.Caption = "阿城市楼房销售面积统计表" & Oid
Dim i As Integer<BR> Dim j<BR> Dim FHBS() As String<BR> ReDim FHBS(Int(Text4.Text) + 1)
FHBS = Split(frist.RTB(1).Text, ",")
<BR> ' x1.Range("A1").Value = FHBS(0): x1.Range("B1").Value = FHBS(1)
X1.Range("F3").Value = Text5.Text<BR> X1.Range("F3").HorizontalAlignment = xlVAlignCenter
<BR> X1.Range("E6").Value = "1层"<BR> X1.Range("C6,H6").HorizontalAlignment = xlVAlignCenter<BR> X1.Range("C7").Value = "房间号"<BR> X1.Range("D7").Value = "套内面积"<BR> 'x1.Range("E7").Value = "楼梯间面积"<BR> X1.Range("E7").Value = "系数"<BR> X1.Range("F7").Value = "分摊公用面积"<BR> X1.Range("G7").Value = "销售面积"
X1.Range("M6").Value = "2-" & Text2.Text - 1 & "层"<BR> X1.Range("J6,Q6").HorizontalAlignment = xlVAlignCenter<BR> X1.Range("J7").Value = "单元号"<BR> X1.Range("K7").Value = "房间号"<BR> X1.Range("L7").Value = "使用面积+墙"<BR> X1.Range("M7").Value = "阳台"<BR> X1.Range("N7").Value = "套内面积"<BR> X1.Range("O7").Value = "系数"<BR> X1.Range("P7").Value = "分摊面积"<BR> X1.Range("Q7").Value = "销售面积"
X1.Range("W6").Value = Text2.Text & "层"<BR> X1.Range("S6,Z6").HorizontalAlignment = xlVAlignCenter<BR> X1.Range("S7").Value = "单元号"<BR> X1.Range("T7").Value = "房间号"<BR> X1.Range("U7").Value = "使用面积+墙"<BR> X1.Range("V7").Value = "阳台"<BR> X1.Range("W7").Value = "套内面积"<BR> X1.Range("X7").Value = "系数"<BR> X1.Range("Y7").Value = "分摊面积"<BR> X1.Range("Z7").Value = "销售面积"
<BR> For i = 1 To Text4.Text<BR> j = i + 7<BR> X1.Range("C" & j & "").Value = i<BR> X1.Range("D" & j & "").Value = FHBS(i)<BR> Next i
Dim CIDS() As String<BR> ReDim CIDS(Int(Text1.Text) + 1)<BR> Dim k<BR> CIDS = Split(Text3.Text, "|")<BR> i = 0<BR> For i = 1 To Int(Text1.Text)<BR> BZZH = BZZH + Int(CIDS(i))
Next i<BR> X1.Range("C" & BZZH + 7 + 2 & "").Value = "一层楼梯间面积"<BR> X1.Range("d" & BZZH + 7 + 2 & "").Value = RTB(5).Text<BR> X1.Range("j" & BZZH + 7 + 2 & "").Value = "标准层楼梯间面积"<BR> X1.Range("k" & BZZH + 7 + 2 & "").Value = RTB(6).Text<BR> X1.Range("s" & BZZH + 7 + 2 & "").Value = "顶层楼梯间面积"<BR> X1.Range("t" & BZZH + 7 + 2 & "").Value = RTB(7).Text
Dim FHS() As String<BR> ReDim FHS(BZZH + 1)
FHS = Split(RTB(2).Text, ",")
i = 0<BR> j = 0<BR> Dim l<BR> For l = 1 To Int(Text1.Text)<BR> If l = 1 Then<BR> j = l + 7<BR> Else<BR> j = Int(CIDS(l - 1)) + j<BR> End If<BR> X1.Range("J" & j & "").Value = l<BR> i = 0<BR> For i = 1 To Int(CIDS(l))<BR> If i = 1 Then<BR> k = j<BR> Else<BR> k = i + j - 1<BR> End If<BR> X1.Range("K" & k & "").Value = i
Next i
Next l<BR> FHF = BZZH<BR> i = 0<BR> For i = 1 To FHF + 1<BR> j = i + 7<BR> If j > FHF + 7 Then<BR> GoTo GHG<BR> End If<BR> X1.Range("L" & j & "").Value = FHS(i)<BR> Next<BR>GHG:<BR> cct<BR> Exit Sub<BR>errty:<BR> MsgBox "数据不符合要求，请重新读取数据。", vbInformation + vbOKOnly, "ERROR" 我正需要这程序，请问这程序怎么使用？ 楼主能不能把你上面的程序代码发完呀
页:
[1]