閱: 16439 | 回: 20
等級(jí):初學(xué)者-
積分:2 -
財(cái)富值:4 -
身份:普通用戶
回復(fù):9樓
我用VBA實(shí)現(xiàn)了,但是我想選30個(gè),句子太長(zhǎng),導(dǎo)致直接換行了,結(jié)果提示錯(cuò)誤。請(qǐng)問(wèn)該怎么做?Private Sub Worksheet_Activate()Union(Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1 , Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * R
End Sub
我的個(gè)性簽名
等級(jí):傳說(shuō)級(jí)人物
等級(jí):學(xué)者