Option Explicit
Function EncodeURI(uri As String) As String
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Set js = sc.CodeObject
EncodeURI = js.encodeURIComponent(uri)
End Function
-------------------------------------------
をデバッグすると「sc =」と「js =」の部分が「変数が定義されていません」となってしまいます。
変数を宣言する時に、
dim sc as まではわかるのですが変数のデータ型を何にしてあげればいいのでしょうか？
エクセルで工場で扱っている部品管理したいと思っています。
現在、自分なりに考えて、
入力用シートで概要入力をし、別シートで詳細をわかるように管理したいと思ってます。
構成は入力シート（１）、別シート約５００シート以上です。
入力用シートに、以下のように入力しています。
A B C D E F G H
1 No 部品番号 名称 製造番号 有効期限 種類 仕入れ先 残数
2 1 123456 テスト 123 2012/4 D A社 2
3 2 852 Ring 456 2012/7 C B社 3
4 3
このように項目が約５００項目以上あります。
これを添付画像のように、別シートで部品ごとに詳細管理しています。
入力シートは入力できたのですが、各シートに該当部分を貼り付ける作業が膨大に時間かかりそうなので、マクロで自動貼り付けはできないものでしょうか？
データベースに近い形になるかもしれないので、アクセス使ったほうがいいのはわかっていますが、予算がとれなくてどうしてもエクセルでしたいと思っています。
初めて質問するので、わかりにくい文章かもしれませんが、よろしくお願いします。
不明点あれば教えてもらえれば、説明します。
エクセルで工場で扱っている部品管理したいと思っています。
現在、自分なりに考えて、
入力用シートで概要入力をし、別シートで詳細をわかるように管理したいと思ってます。
構成は入力シート（１）、別シート約５００シート以上です。
入力用シートに、以下のように入力しています。
A B C D E F G H
1 No 部品番号 名称 製造番号 有効期限 種類 仕入れ先 残数
2 1 123456 テスト 123 2012/4 D A社 2
3 2 852 Ring 456 2012/7 C B社 3
4 3
このように項目が約５００項目以上あります。
これを添付画像のように、別シートで部品ごとに詳細管理しています。
入力シートは入力できたのですが、各シートに該当部分を貼り付ける作業が膨大に時間かかりそうなので、マクロで自動貼り付けはできないものでしょうか？
データベースに近い形になるかもしれないので、アクセス使ったほうがいいのはわかっていますが、予算がとれなくてどうしてもエクセルでしたいと思っています。
初めて質問するので、わかりにくい文章かもしれませんが、よろしくお願いします。
不明点あれば教えてもらえれば、説明します。
こんにちは。
Excel VBA初心者です。
Formを作成し、Form上に、テキストをいくつか配置しています。
日付を入力するテキストが2つあり、それぞれ、以下の名前にしています。
オブジェクト名：txt開始日、txt入力日
3つVBAで設定をしたのですが、(2)がうまく動きません。
(1)年を入力しなくても、自動的に年(4ケタ表示)を表示する。→これは、どこかのサイトで、紹介されていた物を使用させて頂いています。
(2)txt開始日に日付を入力し、txt入力日に入力した日付より大きかったら、
MsgBOXを表示し、ｔｘｔ入力日の値を空白にし、再度入力するようにする
(3)txt開始日が空白で、txt入力日に入力は可。
(2)が、私の作成したコードだと、うまく動かず、
ちゃんとtxt開始日<txt入力日で入力していても、
MsgBOXのメッセージが出てしまったり、
MsgBOXが表示され、再度、txt入力日に、
txt開始日<txt入力日になる値を入力しても、
同じMsgBOXが出てしまいます。
どなたか解決策を教えて頂けますでしょうか。
よろしくお願いします。
-------------------------------------------------
-------------------------------------------------
Private Sub txt予定日_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dteDate As Date
If txt予定日.Value = "" Then
txt予定日.Value = ""
Exit Sub
End If
If IsNumeric(Left$(txt予定日, 4)) <> True Then
txt予定日 = Year(Date) & "/" & txt予定日
End If
If IsDate(txt予定日) = True Then
dteDate = CDate(txt予定日)
' 実数はTagに格納
txt予定日.Tag = CLng(dteDate)
Else
MsgBox "予定日入力ミスです。再度入力してください。"
End If
If txt確認日.Value <> "" And txt予定日.Value <> "" And txt確認日.Value > txt予定日.Value Then
MsgBox "予定日と確認日の日付に間違いがあります～。再入力お願いします。"
txt予定日.Value = ""
Cancel = True
Exit Sub
End If
End Sub
こんにちは
今、現在、とある条件にあった行を削除するマクロ作っているのですが、
インターネットを調べてみると後ろから探索して、1行ずつ消していくのがいいと書いてありました。
まぁ、その理屈はわかるんですが、それなら
「Unionでセルの範囲を結合してから、最後に一度に消してしまった方が速いのでは」
(消す作業が1度だけで済むから)
と思い試してみたんですが、実際試したところ・・・
ものすごく遅かったです。
(ちなみに、1万件のデータで削除した行数は6000ほどでした）
何故Union結合だと遅いのでしょうか？
速いマクロを作成するには、やはり後ろから探索して、1行ずつ消していくしかないのでしょうか？
以下は試したマクロです。
(test が unionで試したマクロ、test2が後ろから1行ずつ削除したマクロ)
Option Explicit
Public Sub test()
Dim r As Range
Dim r1 As Range
'Cells.Replace "-", " "
For Each r In Range("A2", Range("A65536").End(xlUp))
If r = r.Offset(1, 0) And r.Offset(0, 1) < r.Offset(1, 1) Then
If r1 Is Nothing Then
Set r1 = r
Else
Set r1 = Union(r1, r)
End If
End If
Next
r1.EntireRow.Delete
' r1.Select
End Sub
Public Sub test2()
Dim r As Range
Dim r1 As Range
Dim i As Integer
'Cells.Replace "-", " "
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) < Cells(i + 1, 2) Then
Cells(i, 1).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
