1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:6]파이스

2011.12.02 01:17

Sub 울트라()
 Dim i As Long, j As Long
    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 i
End Sub

위와같이 해보았는데, 노란색 부분에서 덜컹 막히네요;
제가 생각하는 or 이 아닌가봐요; 첨부파일의 소스를 보니 if문을 쓰신것 같기도 하던데...머엉...
좀 더 첨부파일을 연구해 보겠습니다.
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)