VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/01/13(Fri) 09:25
投稿者： ひろむ
Ｅメール：
ＵＲＬ：
タイトル： Re: こうやってみました。

    Dim i As Long
    Dim Co As Long
    Dim myRange As Excel.Range
    Set myRange = xlSheet.Range("A1")
    Dim n As Long

    n = xlSheet.Range("A1").Value
    For i = 1 To Len(RichTextBox1.Text)
        RichTextBox1.SelStart = n + i - 1
        RichTextBox1.SelLength = 1
        Co = RichTextBox1.SelColor
        With myRange
            .Characters(i, 1).Font.Color = RichTextBox1.SelColor
            .Characters(i, 1).Font.Bold = RichTextBox1.SelBold
            .Characters(i, 1).Font.Name = RichTextBox1.SelFontName
            .Characters(i, 1).Font.Size = RichTextBox1.SelFontSize
            .Characters(i, 1).Font.Italic = RichTextBox1.SelItalic
            If RichTextBox1.SelUnderline = False Then
                .Characters(i, 1).Font.Underline = xlUnderlineStyleNone
            Else
                .Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
            End If
            .Characters(i, 1).Text = RichTextBox1.SelText
        End With
    Next i

    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

右辺と左辺をいじってみました。
しかし、エクセルにはコピーされません。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -