[發問] 請教關於欄列排序

imagio

請教各位高手~
              如附檔~按下 TEST後,在圖形頁面欄列會根據座標頁面 X,Y欄產生對應數值。
請教用VBA該如何寫出當我在輸入角度儲存格E1輸入0 或90 或180或270讓產生的箭頭順時鐘或逆時鐘
方向依照輸入角度改變。
Book1.rar (13.07 KB)

下載次數: 9

2010-6-25 00:07

GBKEE

回復 1# imagio
試試看你問題的方向是否這樣

1. Sub Ex()
   
2.     Dim Rng As Range, R, C, U
   
3.     Sheet2.Cells = ""
   
4.     U = 7                     '儲存格的範圍半徑
   
5.     Set Rng = Sheet2.Cells(U, U) '範圍的中心點
   
6.     Select Case Sheet1.[E1]      '角度儲存格
   
7.         Case 0
   
8.             C = 0
   
9.             For R = 0 To -(U - 1) Step -1
   
10.                 Rng.Offset(R, C) = "M"
    
11.             Next
    
12.             Rng.Offset(R + 2, C + 1) = "M"
    
13.             Rng.Offset(R + 2, C - 1) = "M"
    
14.         Case 90
    
15.             R = 0
    
16.             For C = 0 To U
    
17.                 Rng.Offset(R, C) = "M"
    
18.             Next
    
19.             Rng.Offset(R - 1, C - 2) = "M"
    
20.             Rng.Offset(R + 1, C - 2) = "M"
    
21.         Case 180
    
22.             C = 0
    
23.             For R = 0 To U
    
24.                 Rng.Offset(R, C) = "M"
    
25.             Next
    
26.             Rng.Offset(R - 2, C + 1) = "M"
    
27.             Rng.Offset(R - 2, C - 1) = "M"
    
28.         Case 270
    
29.             R = 0
    
30.             For C = 0 To -(U - 1) Step -1
    
31.                 Rng.Offset(R, C) = "M"
    
32.             Next
    
33.             Rng.Offset(R - 1, C + 2) = "M"
    
34.             Rng.Offset(R + 1, C + 2) = "M"
    
35.     End Select
    
36. End Sub

複製代碼

imagio

謝謝版主的回答~
因原本要處理的座標檔案有10多萬筆,且我又是根據座標直接貼放欄列位置,
所產生的圖形會是跟我需求呈現180度的方向,所以我笨腦筋只卡在欄列的的排序該如何
做變化~
謝謝版主的舉例~~讓我有了新的思考方式