返回列表 上一主題 發帖

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

imagio

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2010-6-7 
最後登錄
2011-1-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-6-25 00:28 | 只看該作者

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

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

imagio

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2010-6-7 
最後登錄
2011-1-14 
3#
發表於 2010-6-28 08:11 | 只看該作者
謝謝版主的回答~
因原本要處理的座標檔案有10多萬筆,且我又是根據座標直接貼放欄列位置,
所產生的圖形會是跟我需求呈現180度的方向,所以我笨腦筋只卡在欄列的的排序該如何
做變化~
謝謝版主的舉例~~讓我有了新的思考方式

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-6-25 07:43 | 只看該作者

你的問題 好像與欄列排序 無關

回復 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
複製代碼

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題