找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能儲值後自動升級用戶組搞笑、娛樂、精彩的影片讓你看
無碼fc2火影流出ntr旬果siro
盗撮記録kaskade[エクリoppai odmetallicfc2 ppv 第二次被

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]香格里拉・開拓異

[繁]反派千金等級99~

[簡]為了在異世界也能

[繁]秒殺外掛太強了,

[繁/無修正]婚戒物語

板橋中山路二段 這種
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 3499|回復: 1

[求助] 關於同樣代碼修改數值的問題?![複製鏈接]

Rank: 1

帖子
97
積分
90 點
潛水值
8848 米
發表於 2018-3-29 12:01 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
想請教一下如果在Excel裡面想要新增一個VBA,目前代碼如下:
Set rRng = Application.Intersect(Target, Range(" A1:A50"))
If rRng Is Nothing Then End
Dim rCell As Range
For Each rCell In rRng
Select Case rCell.Value
Case 1
rCell.Value = "優秀"
Case 2
rCell.Value = "良好"
Case 3
rCell.Value = "及格"
Case 4
rCell.Value = "不及格"
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

帖子
59
積分
28 點
潛水值
11690 米
發表於 2018-4-1 10:27 PM|顯示全部樓層
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
從樓主大大的問題描述.......很難理解樓主大大想問的問題是什麼.......

我假設樓主大大是想:
1. 從先兩個Range中找出重疊的儲存格
2. 檢查重疊的儲存格的值,然後填入檢查的結果

底下為針對假設的代碼:
  1. Private Sub CommandButton1_Click()

  2.   Set Range1 = Union(Range("A1:B10"), Range("D1:D15"))
  3.   Set Range2 = Range("B1:D10")

  4.   Set isect = Application.Intersect(Range1, Range2)

  5.   Me.Cells(2, 10) = isect.Count

  6.   Dim cel As Range

  7.   For Each cel In isect.Cells
  8.     Select Case cel.Value
  9.     Case 1
  10.          cel.Value = "Excellent"
  11.     Case 2
  12.         cel.Value = "Great"
  13.     Case 3
  14.         cel.Value = "Good"
  15.     Case 4
  16.         cel.Value = "Bad"
  17.     Case 5
  18.         cel.Value = "Worse"
  19.     End Select
  20.   Next

  21.   isect.Select

  22. End Sub
複製代碼
底下為執行前與執行後的畫面:

...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部