Microsoft Forms 2.0 Object Libraryを使ってクリップボードへデータを写すとき、かなりの不安定さがあり、デスクトップ上にファイルを置いたときだけ、クリップボードが利く状態になります。ホルダー内にファイルがあるときなど、クリップボード経由が利かないことがことがあります。そこで Libraryを使わずない別に方法にしました。下の2つは、直せませんでしたので、再起動をして、デスクトップ上にファイルをおくことで解決することもあります。

Microsoft Forms 2.0 Object Libraryを使うと今日は、できていても、明日はできていないと報告が多いです。https://nokotopics.exblog.jp/20683660/ やその他ホームページで紹介されていますが。チェックをつけ再起動すると動くこともありそうですね。初めはエクセル固有のバグと思っていました。階級のみMicrosoft Forms 2.0 Object Libraryを使いますが、その他は使っていませんので、貼り付けができます。

2018/4/6　 Libraryを使わない方法に挑戦

ThisWorkbook.Sheets(1).Range("a16").Value = n　　　　　’変数ｎをThisWorkbook.Sheets(1).Range("a16").Value へ写します。

ThisWorkbook.Sheets(1).Range("a16").Copy　　　　　　　’それをコピーします。

Range("a16"）は消去するプログラムを入れなくても、可能です。理由はクリップボードする値は上書き保存されるからです・

階級にする方法も2018/4/6　PM4：27　Forms 2.0 Object Libraryを使わない方法に直しました。

bu1 = "0～5　" & 五以下
bu2 = "6～10　" & 十以下
bu3 = "11～15　" & 十五以下
bu4 = "16～20　" & 二十以下
bu5 = "21～25　" & 二十五以下
bu6 = "26～30　" & 三十以下
bu7 = "31～35　" & 三十五以下
bu8 = "36～40　" & 四十以下
bu9 = "41～45　" & 四十五以下
bu10 = "46～50　" & 五十以下
bu11 = "欠席者　" & 欠席者

ThisWorkbook.Sheets(1).Range("a17").Value = bu1
ThisWorkbook.Sheets(1).Range("a18").Value = bu2
ThisWorkbook.Sheets(1).Range("a19").Value = bu3
ThisWorkbook.Sheets(1).Range("a20").Value = bu4
ThisWorkbook.Sheets(1).Range("a21").Value = bu5
ThisWorkbook.Sheets(1).Range("a22").Value = bu6
ThisWorkbook.Sheets(1).Range("a23").Value = bu7
ThisWorkbook.Sheets(1).Range("a24").Value = bu8
ThisWorkbook.Sheets(1).Range("a25").Value = bu9
ThisWorkbook.Sheets(1).Range("a26").Value = bu10
ThisWorkbook.Sheets(1).Range("a26").Value = bu11
ThisWorkbook.Sheets(1).Range("a17:a26").Copy

めでたし　めでたし！　これで安定しないLibraryクリップボードはすべて「ボツ」になりました。どこでもコピーや貼り付けができます。