nicotinismのプロフィール

35万件以上あるエクセルデータに対して、マクロを使って以下のような処理で重複業を削除したいと思っています。 Sub DeleteOldRow() Dim lastRow As Integer Dim i As Integer Dim j As Integer Dim strVal As String 'B列の最終行を求めます。 lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row '1行目から最終行の前まで繰り返します。 For i = 1 To lastRow - 1 'チェックする値を、strValに代入します。 strVal = ActiveSheet.Cells(i, 2).Value '今見てる行から、下をチェックします。 For j = i + 1 To lastRow 'もし、値が同じであれば、 If strVal = ActiveSheet.Cells(j, 2).Value Then '元の行を削除します ActiveSheet.Rows(i).Delete '最終行が１行減ったのでlastRowの値を減らします。 lastRow = lastRow - 1 'チェックしている行を１行前に戻します。 j = j - 1 End If Next j Next i End Sub 上記処理を３５万件あるファイル上でマクロの実行すると、オーバーフローしてしまいました。マクロ側で対象ファイルを読み込むなどして、処理を軽くするやり方はありますでしょうか。上記処理にどのような処理を加えればスムーズに処理されるでしょうか。

以下についてご教授願います。 access2003にて拡張子.mdbのファイルを利用していました。 access2010に切り替えるため、拡張子.accdbにて同様のファイルを作成したいと思っています。 今までは、ユーザーレベル　セキュリティ機能を利用して、管理者権限のみに表示されるフォームを作成し、管理者のみ入力できる項目などがありました。 2007以降はユーザーレベル　セキュリティ機能が削除されたとのことで、同じように複数のアクセス権限などを利用するためにはどのように構築したらよいのでしょうか。 いくつかネットを検索しましたが、代替機能のようなものにヒットしませんでした。 share　point　serviceを利用して権限を付与する、といったものは見かけたのですが特にサーバなどに乗せて利用する予定はないため、他に設計などで代替出来る方法があればと思っています。 以上、よろしくお願いいたします。

会社のPCが新しくなって困ったことが発生しました。 エクセルのビボットテーブルにアクセスのクエリを紐づけて、 売上データを毎月更新していました。 新たにエクセルから外部データを読み込む方法で作成しようとしたところ、 「`accdb.`のかっこの使い方が正しくあません。」いうエラーがでてしまいます。 対策をご存じの方がいたら、教えてください！ よろしくお願いします。 XP→win7 Office2003→同じ Access1997→Access2010

Access2007からADO接続してEXCELのシートにSELECT文を発行すると、 『[Microsoft][ODBC Excel Driver]選択された CollatingSequence は OS でサポートされていません。』のエラーが出ます。 SELECT文に条件を付けると上記エラーが発生します、条件なしの場合はエラーが発生しません。 エラーが発生してもデバッグで Ｆ８ で実行すると正常に条件付きでＳＥＬＥＣＴされます、 エラーは一回目のＳＥＬＥＣＴだけで、以降はエラーが発生しません。 対処の方法をお教え下さい。 よろしくお願いします。 （（"Microsoft.Jet.OLEDB.4.0"を使用してもエラーが発生しました。）） （例） 'テンポラリファイルを取り込む Dim querydef As DAO.querydef Dim adoCON As New ADODB.Connection Dim adoRS As New ADODB.Recordset Dim strV As String Dim strQ As String 'ADOを使い読み込み専用モードでExcelファイルを扱う準備(オープン)をします adoCON.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; " & _ "DBQ=" & "C:\test2014.xlsx" & ";" & _ "ReadOnly=True" 'SQLを実行（全件検索） 　　OK Set adoRS = adoCON.Execute("SELECT * FROM [Shite1$]") 'SQLを実行（条件付き検索） NGエラーが発生します。 Set adoRS = adoCON.Execute("SELECT * FROM [Shite1$] WHERE A = 7 ")

アクセス2003で作成したものがアクセス2010では全く使用できなくなりました。 どのボタンを押しても下記メッセージがでます。 ●イベントプロパティに指定した式　クリック時　エラーが発生しました。 ・修正候補　ステートメントの最後 ・マクロ名、ユーザー定義関数名、（イベントプロシージャ）以外の式が指定されています。 ・関数、イベント、マクロの評価でエラーが発生しました。 ●ヘルプを表示すると 　このエラーはイベントのロジックの場所を評価できない為にイベントを実行できなかった為に発生します。例えば、フォームの OnOpen/開く時”” プロパティが＝[フィールド]に設定されている場合、イベントが開始されたときに、マクロまたはイベントの名前が実行対象として予期されるため、このエラーが発生します。 コードを見ると赤くなっているのは下記だけだったのですが、他にも問題があるような気がします。。。。 Private Sub 見積書（少数点）ボタン_Click() End Sub Private Sub 報告書（少数点）ボタン_Click() End Sub ご教授宜しくお願い致します。