Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim e As Integer, f As Integer, g As Integer, h As Integer
Randomize (1)
For i = 1 To 100
a = Int((8 * Rnd) + 1) Or Chr(Int(25 * Rnd + 65))
b = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65))
c = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) d = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) e = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) f = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) g = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) h = Int((9 * Rnd) + 0) Or Chr(Int(25 * Rnd + 65)) Cells(i, 2) = (a & b & c & d & e & f & g & h) Next iEnd Sub 위와같이 해보았는데, 노란색 부분에서 덜컹 막히네요;제가 생각하는 or 이 아닌가봐요; 첨부파일의 소스를 보니 if문을 쓰신것 같기도 하던데...머엉...좀 더 첨부파일을 연구해 보겠습니다.