Function getRandomStr() As String Const S_STR As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" Const S_INT As String = "0123456789" Const S_SYM As String = "!#$%&()=<>?@*+" Randomize Dim result As String '英字から10文字のランダム文字 Dim i As Integer For i = 1 To 10 result = result + Mid(S_STR, Int(Len(S_STR) * Rnd + 1), 1) Next Dim pos As Integer '数字を1つ加える pos = Int(Len(result) * Rnd + 1) result = Mid(result, 1, pos) & Mid(S_INT, Int(10 * Rnd + 1), 1) & Mid(result, pos + 1, 10 - pos) '記号を1つ加える pos = Int(Len(result) * Rnd + 1) result = Mid(result, 1, pos) & Mid(S_SYM, Int(11 * Rnd + 1), 1) & Mid(result, pos + 1, 11 - pos) getRandomStr = result End Function]]>
=INT(A1/60)&":"&MOD(A1,60)
これで、1:29.123と表示される
]]>このメッセージを表示しない方法
(Excel2010)
ファイル > オプション > 詳細設定
全般内の“リンクの自動更新前にメッセージを表示する”のチェックを外す
例
シート名 = Sheet1
B1 = 佐藤
A2 = 国語
B2 = INDIRECT(A2)&”!A2″
シート名 = 国語
A1 = 佐藤
A2 = 80点
Sheet1のB2には、国語!A2である80点が表示される
]]>※Office2010
]]>