セルに入力可能な入力は、真または偽(真偽)です。ブール値がTrueに設定されている場合、私の目標はスタイルを変更することです。 は、私は次のコード Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:F200")) Is Nothing Then
If T
選択の最初のセルを取得して6番目のセルにマージするマクロを作成しようとしています。エラー400が発生しています。 Sub SignPage()
Dim ws As Worksheet, BasePoint As Range, row As Long, singlecell As Long,
singleCol As Long, sLong As Long, sShort As String
私は年よりも下にあるさまざまな値を持つ行14の年をリストするワークシートを持っています。私は残りの列を隠しながら、彼らが見たい年数を入力できるユーザー入力セルを持っていたいと思います。私はこのコードが単純でなければならないことを知っていますが、実際にこれをコード化する方法を頭に入れておくのは難しい時が来ているようです。 Sub HideCol()
Range("F14").Select
y
マクロを使用してブック内のすべてのコードを削除する必要があります。私はpretty oldと思われるこのコードを使用しています。 Dim x As Integer
With ActiveWorkbook.VBProject
For x = .VBComponents.Count To 1 Step -1
.VBComponents.Remove .VBComponents(
1つのブックからデータをコピーしてクローズドブックに保存するコードを作成しようとしています。問題は、データを列から行に移す必要があることです。私はペーストスペシャルを試みましたが、うまくいきませんでした。以下は、私が使用しているコードです。少なくともアクティブなシートから閉じたシートにデータを転送します。 Sub LessonLearned()
Dim destSht As Works