戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ

■ 24時間以内に投稿された新着記事 10件です。



    [190267] Re[6]: 図形にColorIndexで色を付けたい。
    ■■
    □投稿者/ γ -(2019/09/22(06:59))
    □U R L/

      >検索で出てこなかったから聞き直しました。
      質問の最初から、実行したことを書いてもらいたい。
      
      >ここは一定期間ごとに消えるのではないですか。
      悪いですけど、あなたが実行した「検索」とはどんなことですか?
      ブラウザーの検索機能じゃないですよ。
      □検索 とあるところをクリックしてジャンプする「検索」ページですよ。
      そこに書いてある説明を読んだうえでも、検索できないですか?
      
      
      




    [190268] Re[7]: 図形にColorIndexで色を付けたい。
    ■■
    □投稿者/ マナ -(2019/09/22(11:20))
    □U R L/


      過去ログから検索できます。
      質問した時期がわかれば、簡単に見つかるはずです。

      ht tps://excelfactory.net/excelboard/excelvba/cfs.cgi?word=%90%7D%8C%60%82%C9ColorIndex%82%C5%90F%82%F0%95t%82%AF%82%BD%82%A2%81B&andor=and&logs=33.txt

      ColorIndexより、検索を使えるほうがメリットが大きいです。
      検索できることを確認してみてください。




    [190269] Re[5]: Dictionaryで項目ごと集計(部分一致)
    ■■
    □投稿者/ マナ -(2019/09/22(12:21))
    □U R L/

      >してみます。
      
      結果はどうでしたか?
      一例です。
      
      Sub sample2()
          Dim i As Long, db As Object, wk As String
          Dim tbl As Range
          
          Set db = CreateObject("Scripting.Dictionary")
          Set tbl = Sheets("対応表").Cells(1).CurrentRegion
          
          With Sheets("sheet1")
              For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
                  wk = Mid(.Cells(i, "A").Value, 3)
                  db(wk) = db(wk) + .Cells(i, "B").Value
              Next
              
              With .Cells(2, "C").Resize(db.Count)
                  .Resize(, 2).Value = Application.Transpose(Array(db.keys, db.items))
                  .Value = Application.VLookup(.Cells, tbl, 2, False)
              End With
              
          End With
          
          Set db = Nothing
          
       End Sub
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [190270] Re[8]: 図形にColorIndexで色を付けたい。
    ■1■
    □投稿者/ LGK -(2019/09/22(13:34))
    □U R L/


      ありがとうございます。
      キーワードを入れるだけではだめで、
      過去ログのボタンを押す必要があったのでですね。
      過去ログ1〜33を押さなければなりませんが、おかげで他の行方不明の質問も見つけました。



    [190271] Re[9]: 図形にColorIndexで色を付けたい。
    ■■
    □投稿者/ γ -(2019/09/22(13:54))
    □U R L/

      >・ 過去ログから探す場合は過去ログをチェック。
      >・ 過去ログは番号が大きいほど新しいログです。
      と書いてありますけどねえ。読んでいないのかな。
      
      
      DrawingObjectについては下記が参考になります。
      ht tps://www.relief.jp/docs/excel-vba-check-exists-drawingobjecs.html
      >まず本当に、DrawingObjectsオブジェクトを使う必要があるかを、考えましょう。
      
      >DrawingObjectsはシート上の全描画オブジェクトを表しますが、
      >古いタイプのオブジェクトです(オブジェクトブラウザーでは非表示に設定されていまます)。
      
      >最近のExcelの場合、描画オブジェクトはShapesやShapeRangeで取得できます。
      >DrawingObjectsオブジェクトを使わないと、上手く処理できないときにのみ
      >DrawingObjectsを使うことを考えるべきだと、私は考えています。
      まあ、個人的見解ではあるんでしょう。
      使用するかたを批判するものではないですけど、経緯はそういうことです。




    [190272] Re[10]: 図形にColorIndexで色を付けたい。
    ■■
    □投稿者/ LGK -(2019/09/22(14:09))
    □U R L/


      SchemeColorを使っても、私のやりたいことはできます。
      今後はそうした方がいいでしょう。
      しかし、使う使わないは別にして、やり方を知りたかったのです。
      せっかく昔質問したのにやり方がわからないのが癪だったし、
      回答していただいた方にも悪いと思いました。

      おがけげ過去ログの使い方が解りました。私にとってこっちの方が収穫は大きいです。(前はキーワートだけ入れて、過去ログのボタンを押すことを知りませんでした)



    [190273] Re[2]: 複数の印刷を自動で行う方法
    ■1■
    □投稿者/ しょしょ -(2019/09/22(16:19))
    □U R L/


      終わり



    [190274] Re[3]: 複数セルを1つのセルへ転記する方法
    ■1■
    □投稿者/ Zhen -(2019/09/22(16:20))
    □U R L/


      ありがとう



    [190277] 変数を使った数式とセルへの値の代入について
    ■■
    □投稿者/ PopCultVenus -(2019/09/22(22:18))
    □U R L/

      お世話になります。
      先日教えて頂いたコードは、一通り動作するようになりました。今回は、その後の別のコードで行き詰っています。ご教授頂ければ幸いです。
      
      プロシージャを書き込んでいるのは、前回教えて頂いたブックになります。
      ただ、操作しているのは別の二つのブックであり、それぞれのシート間で値を代入しようとしています。
      部門別損益計算書(2019年度).xlsm というブックのTOPシートにプロシージャがある
      部門別契約実績 2019年度.xlsm というブックの 小計シート
      スポット実績 2019.xls というブックの スポット合計シート
      
      TOPシートのあるセルの値を月数として、変数に代入。その変数から列番号を取得。
      例えば、4月の値を転記したあと、変数colnum+1(右の列)から3月の列までに
      数式を入れたいのですが、数式は入りますが、セル参照がずれてしまいます。
      入れたい数式は、それぞれの列に、"=SUM(Start:End!O7)" です。O7は、列によって変化します。
      
      wsKei.Range(Cells(5, colnum + 1), Cells(5, 13)).Formula = "=SUM(Start:End!J7)"
      
      と入力したら、相対参照で動作するかなと思いましたが、無理でした。
      元々、セルにその数式を入れておけば良いのですが、VBAで入れられるなら、再度入れておきたいと思ってのことです。
      
      二つ目は、動作はするように出来ているのですが、1行で記述できればと思い教えて頂ければと思います。
      
      wssp.Activate
          wssp.Range(Cells(8, colnum + 3), Cells(8, 15)).Copy
          wsKei.Activate
          wsKei.Range(Cells(6, colnum + 1), Cells(6, 13)).PasteSpecial Paste:=xlPasteValues
          
      '    wsKei.Range(Cells(6, colnum + 1), Cells(6, 13)).Value = wssp.Range(Cells(8, colnum + 3), Cells(8, 15)).Value Rangeオブジェクトが取得できない
      
      上の記述で、シートをアクティブにしてコピー、ペースト先をアクティブにしてペーストすると動作します。
      下の記述でエラーになる理由を教えて頂ければと思います。
      
      以下、記述したコードをコピペします。宜しくお願いします。
      
      
      Sub 売上予測作成()
          Application.ScreenUpdating = False
          
          Dim wb As Workbook, wbKei As Workbook, i As Long, ws As Worksheet, wsKei As Worksheet, FilePath As String
          Dim colnum As Long, wbsp As Workbook, wssp As Worksheet
          
          Worksheets("TOP").Select
          i = Worksheets("TOP").Range("C36").Value
          Set wb = ThisWorkbook
          Set ws = wb.Worksheets(i & "月")
          FilePath = ThisWorkbook.Path
          Workbooks.Open FilePath & "/部門別契約実績 2019年度.xlsm"
          Set wbKei = Workbooks("部門別契約実績 2019年度.xlsm")
          Set wsKei = Workbooks("部門別契約実績 2019年度.xlsm").Worksheets("小計")
          Workbooks.Open FilePath & "/スポット実績 2019.xls"
          Set wbsp = Workbooks("スポット実績 2019.xls")
          Set wssp = Workbooks("スポット実績 2019.xls").Worksheets("スポット合計")
          
          wbKei.Activate
          colnum = Range("A4:M4").Find(i & "月").Column
      
          wsKei.Cells(5, colnum).Value = ws.Range("E6").Value
          wsKei.Cells(6, colnum).Value = ws.Range("E7").Value
          wsKei.Cells(7, colnum).Value = ws.Range("E9").Value
          
      '    wsKei.Range(Cells(5, colnum + 1), Cells(5, 13)).Formula = "=SUM(Start:End!J7)"   セル参照の位置がずれる
          
      '    wsKei.Cells(6, colnum + 1).Select
          wssp.Activate
          wssp.Range(Cells(8, colnum + 3), Cells(8, 15)).Copy
          wsKei.Activate
          wsKei.Range(Cells(6, colnum + 1), Cells(6, 13)).PasteSpecial Paste:=xlPasteValues
          
      '    wsKei.Range(Cells(6, colnum + 1), Cells(6, 13)).Value = wssp.Range(Cells(8, colnum + 3), Cells(8, 15)).Value Rangeオブジェクトが取得できない
      
      
          Workbooks("部門別契約実績 2019年度.xlsm").Save
      '    Workbooks("部門別契約実績 2019年度.xlsm").Close
          Workbooks("スポット実績 2019.xls").Save
          Workbooks("スポット実績 2019.xls").Close
      
          Application.ScreenUpdating = True
      
      End Sub
      
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [190278] Re[1]: 変数を使った数式とセルへの値の代入について
    ■■
    □投稿者/ マナ -(2019/09/22(22:29))
    □U R L/


      Cellsの前にも、シート指定が必要です。



- Child Forum -
Edit:ゆう-G