[發問] 想請教利用vba對execl檔案中的數值加上亂數的方法(己解決)

帖子: 10
主題: 6
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-7-6
最後登錄: 2022-1-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-16 13:31 | 只看該作者

[發問] 想請教利用vba對execl檔案中的數值加上亂數的方法(己解決)

本帖最後由 linnetkill 於 2011-11-18 07:54 編輯

a 88 15 78 21 32 2
b 49 52 92 39 33 76
c 96 70 97 96 23 16
d 5 90 33 71 59 97
e 73 55 29 11 7 73
f 83 81 46 6 0 42
g 92 82 3 79 9 70
h 53 77 96 97 14 65
我想讓使用一開啟execl後
需要輸入密碼
如密碼錯誤針對於上述數字自動乘上亂數來改奱原來值
密碼正確數值就為正常不需乘上亂數
不知道是否可以利用VBA達到此功能
請各位高手可以幫忙解惑

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-11-17 08:56 | 只看該作者

沒用的，把安全性設為高後程式碼就不執行了。

帖子: 10
主題: 6
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-7-6
最後登錄: 2022-1-30

3^#

發表於 2011-11-17 11:16 | 只看該作者

版主大大
是否可以請教一下
如何利用vba讓開啟execl檔
數字自動乘上亂數來改變原來值

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2011-11-17 12:03 | 只看該作者

版主大大
是否可以請教一下
如何利用vba讓開啟execl檔
數字自動乘上亂數來改變原來值
linnetkill 發表於 2011-11-17 11:16

亂數的範圍?

帖子: 10
主題: 6
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-7-6
最後登錄: 2022-1-30

5^#

發表於 2011-11-17 12:55 | 只看該作者

亂數範圍為正數
0至99內均可

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-11-17 13:44 | 只看該作者

乘上亂數是簡單，循環一下即可

For Each c In ActiveSheet.Cells.SpecialCells(2, 1)
c.Value = c.Value * Int(Rnd * 100)
Next

複製代碼

你要考慮的是如何恢復

帖子: 10
主題: 6
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-7-6
最後登錄: 2022-1-30

7^#

發表於 2011-11-17 15:27 | 只看該作者

版主大大
照你方式加入
可是儲存值並沒有改變
我附加檔案上去
是否可以幫我看一下

附件.rar (4.43 KB)

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

8^#

發表於 2011-11-17 19:06 | 只看該作者

本帖最後由 luhpro 於 2011-11-17 19:08 編輯

回復 7# linnetkill
你的程式要包在 Sub 與 End Sub 之間才能正常執行.

另外 For Each 後面要放 Range 範圍,
而不是只有一個儲存格.

還有, 程式若放在 ThisWorkBook,
建議要指明想要處理的儲存格所在的 Sheet,
而不是直接作用在 ActiveSheet,
以免處理程序作用到錯誤的儲存格或 Sheet.

Workbook_Open 可以透過程式碼區上方左側下拉式選單,
選擇 Workbook 自動產生表頭 Private Sub Workbook_Open() 與表尾 End Sub後,
再把開啟 Excel 時想要動作的程式放在其中即可

Private Sub Workbook_Open()
For Each c In Sheets("Sheet1").Range("B1:G9")
c.Value = c.Value * Int(Rnd * 100)
Next
End Sub

帖子: 10
主題: 6
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-7-6
最後登錄: 2022-1-30

9^#

發表於 2011-11-18 07:53 | 只看該作者

感謝各位大大的提供