・;・^;・:月夜:・;^・;・

On Errorステートメント

http://excelvba.pc-users.net/fol6/6_8.html

エラー処理に関するWeb
とっても役に立ちました
ありがとうございました♪

'-------------------------------------------------------------------------
Option Explicit

Private Sub CommandButton1_Click()

'Dim Wb1 As Workbook
Dim Wb1Sh1 As Worksheet
'Dim CSVWb1 As Workbook
Dim CSVWb1Sh1 As Worksheet
Dim MaxRow As Integer
Dim S As String

'Set Wb1 = ActiveWorkbook
Set Wb1Sh1 = ActiveWorkbook.Worksheets("sheet1"

S = Wb1Sh1.Range("I7"

On Error GoTo Err

Workbooks.Open "C:\Users\*****\Desktop\" & S & ".CSV"

'Set CSVWb1 = ActiveWorkbook
Set CSVWb1Sh1 = ActiveWorkbook.Worksheets(1)

MaxRow = CSVWb1Sh1.Cells(Rows.Count, 1).End(xlUp).Row
CSVWb1Sh1.Range(CSVWb1Sh1.Cells(1, 1), CSVWb1Sh1.Cells(MaxRow, 3)).Select
Wb1Sh1.Range("A4".PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Application.DisplayAlerts = False
'CSVWb1Sh1.Save
CSVWb1Sh1.Close
Application.DisplayAlerts = True

UserForm1.Show

Set Wb1 = Nothing
Set Wb1Sh1 = Nothing
Set CSVWb1 = Nothing
Set CSVWb1Sh1 = Nothing

Err:

End Sub

'-------------------------------------------------------------------------

りんごの箱の数は？

りんごの箱の数
箱は15個でいっぱいになる
16個では箱は2つ必要

そんな問題

ＶＢＡであらわすところでつまずいた
「りんごの数を１５で割って、あまりが出たら　＋１箱とすればよい」
考え方はそうなのだけど。。。

ifを使えば間単にできる

If りんごの数 Mod 15 = 0 Then

箱 = 箱 + りんごの数 \ 15

Else

箱 = 箱 + りんごの数 \ 15 + 1

End If

でも。。。
スマートでない気がする
昔、Ｃでならったような。。。

なんだかモヤモヤします

形式

ＶＢＡの特別講習

この講座をうけられる自分がとても恵まれてると思うの
基本段階を得て特別講習までしてくださる
ＶＢＡだけでなくＥｘｃｅｌの応用まで指導くださる

とても毎日が楽しいです☆

その途中段階
「文字として認識されているセルを数値へ変換」
こんな一幕がありました

Value変換が基本
でも月夜知らなかったの
だから・・・

ネットで調べて答えを探した
「空白セルをコピーして対象セルに形式コピー（加算）」
面白がられましたっ

月夜みたいなドシロウトは時にとんでもない解答をするんだなぁ、って思われてるのでしょう
そんな解答も指導者の方のプラスになれば恩返しになるような気がします
笑ってもらえてよかった、って思います

表引き関数やR1C1形式
Excelってこんなことまでできるんだ！！って感動の毎日です
仕事でモヤモヤが溜まると講座に逃げ込みます、で気持ちをクリア

「駆け込み寺」ができました

(A and B and C ) or D

リストが二つ
１のメインリスト
２のサブリスト

２のサブリストをＢ条件で絞る
１のメインリストをＡ・Ｃ条件で絞り、２のサブリストの意味するものを抽出、１’メインリストを作成
１のリストでＤ条件はすべて抽出し、１’’メインリストを作成

１’メインリストと１’’メインリストで重なりをとり
残るのが答え
言いたいことはよくわかる

でも。。。
混乱中・混乱中・混乱中・・・
ボーっとみえているのに書き出すと消えてしまいます

明日までになんとか答えを見つけます

test 1

Option Explicit

Sub Macro1()

    Dim i As Single     'ｶｳﾝﾀ
 
    For i = 0 To 2
         Sheets("Sheet2").Select
         Range("B1").Select
         Sheets("sheet2").Cells(1, 2) = Sheets("sheet1").Cells(2 + i, 1)
         Range("B3").Select
         Sheets("sheet2").Cells(3, 2) = Sheets("sheet1").Cells(2 + i, 2)
         Range("B4").Select
         Sheets("sheet2").Cells(4, 2) = Sheets("sheet1").Cells(2 + i, 3)
         Range("B5").Select
         Sheets("sheet2").Cells(5, 2) = Sheets("sheet1").Cells(2 + i, 4)
      
            Sheets("Sheet2").Copy After:=Sheets("sheet2")
            Sheets("Sheet2 (2)").Name = Cells(1, 2)
         
         Sheets("Sheet2").Select
         Range("B1:B5").Select
         Selection.ClearContents
    Next i
    
End Sub

シートの並びがＮＧですね。。。

Sheets("Sheet2".Copy After:=Sheets("sheet2"

ここをなんとかせねばっ