Copyright (C) 2010 All Rights Reserved.
朝から大変失礼いたしますが、何卒よろしくお願い致します｡
現在、２８歳、既婚者（子供なし）の女です｡
今まで、大卒総合職（企画マーケティング正社員４年）→大手研究機関（広報、契約社員１年）→地方金融（窓口、契約社員数カ月）という職歴をたどっています｡
詳細割愛させていただきますが、短いながら人生社会人経験をしてきた中で、子供が生まれたらもう一度、一番最初にやっていたようなバリバリ系仕事に挑みたいと思っています｡
３－５年先を考えています｡
もちろん、大変難しいのは承知の上です｡
ただ、今の金融機関に収まる気はありません｡
もし、正社員がダメであれば、派遣社員でもいいから民間企業に戻りたいと思っています｡
ですが、私の場合、いろんな経験を積んできた自負はありますが、目に見える形での資格というものがありません｡
今は、金融機関にいるので、ＦＰや簿記や外務員試験などを進められているような状況です（仕事の関係で）ただ、最近思うのは、自分が簿記１級とか、ＦＰ１級とか、税理士とかそういった資格を取れば、仮に転職したときに誇れる資格となると思うんです｡
でも、別に私の将来の希望として、経理とかお金関係の仕事をしたいという夢はありません｡
（マーケティングとか企画がやはりやりたいです）それより、今までの社会人経験で痛感したのは、英語（今は、トイック４００点レベル）とＰＣスキル（マクロとかＶＢＡ）ができ仕事が早くなるのになとおもったこともありました｡
そこで、自分なりに感じたのが、簿記３級とか、ＦＰ３級とかを中途半端に取るなら、いっそ、英語をまず潰して最低でもトイックで７００点ぐらいとれ、会話、メールに不自由がないくらいのレベルに持っていけるよう、日々の勉強時間を割いたほうが将来のためには良いのではないかと思ったんです｡
もちろん、簿記やＦＰなどが無駄だとは思っていませんし、一番いいのは、英語も、簿記やＦＰも｡
｡
｡
ということになるのでしょうが、、あまり頭が良くないので、一つの事にしか集中ができません｡
それに、履歴書にＦＰ３級、簿記３級位ならむしろ書かないほうが良いのでは・・・と思った次第です｡
将来を考えてなら、英語やＰＣのスキルを少しでも上げておいたほうがいいと思ったのですが、その辺、プロの皆様はどうお考えになるのでしょうか・・・ご助言お願い致します｡
他のシートに一部分を貼り付けます｡
その後、並べ替える前の状態に戻したいです｡
どうしたらよいでしょうか｡
そこで早速コードを書き直してみました｡
配列 Data_H をOffsetを使用して出力する範囲をずらしていきたいのですが、①のところで下記の実行時エラー '1004':アプリケーション定義またはオブジェクト定義のエラーですとエラーが出ます｡
Offsetを使用してエラーを無くすにはどのように修正すればいいでしょうか｡
ご指導の程よろしくお願い致します｡
Dim Data_H As VariantDim DR_Y As LongDR_Y = 0 Data_H = Range("A1:B10") Do Until EOF(intFF) Line Input #intFF, strLine Select Case strLine 途中省略 Worksheets("Sheet1").Range("A1:B10").Offset(0, DR_Y) = Data_H <-------------① DR_Y = DR_Y +100 途中省略 End Select LoopClose intFF
ＯＳが起動したと同時にＶＢＳでつくったファイルが起動するようにできますか?
メモ帳からＶＢＳにして保存する形で素人ですが、プログラミングに挑戦しています｡
来てくれた人にわかりやすいようにいたずらプログラムをつくっています｡
作りたいプログラムは・・・１．ＯＳ起動時とほぼ同時にプログラムが起動２．クリックを２０回押さないと消えないように設定したファイルが出てくる３．２を消すとこのつくりかたを簡単に説明した動画が流れるそしてできることなら、その動画ファイルを消したらＰＣをシャットダウンできるようにしたいです｡
１のＯＳ起動時と同じようにＶＢＳファイルを起動できるようにしたいです・・・できることなら、シャットダウンの方法も・・・今のソースはfor i=20 to 1 step-1 msgbox("残りクリック数は"& i &"です｡
0までがんばって！")nextWScript.Sleep(10 * 12)CreateObject("WScript.Shell").Run """C:\\Program Files\\（動画ファイル）.exe"""です｡
自分勝手な質問ですがよろしければ教えてください｡
差し込み印刷?
する方法を教示願います｡
これまで本等を購入し、何とか乗り越えて来ましたが、限界にきましたので質問させてもらいます｡
現在、エクセルVBAとMDB（ACCESS）を使い、物品を管理するシステムを作成しています｡
エクセルVBAには、ユーザーフォーム(F_入荷予定）を作成し、同ユーザーフォーム上にはテキストボックス(txt_日にち)があり、さらにリストボックス（lis_入荷予定）そしてコマンドボタン(cmb_印刷)印刷、他にもリストボックスをクリックするとMDBから詳細な事項がテキストボックスに表示するオブジェクトがありますが、省略させてもらいます｡
１ 動作について 動作としましては、同一ブック内の他に作成したユーザーフォーム（F_登録）(エクセルVBA以下同じ)を使い、連番（その日の連番）、日付け(2010/9/6)、番号(連番で振られる)、商品名（重複商品であっても入荷時間が違えば新たな番号で登録）、入荷時間、取扱者等入力したデータをMDB(T_商品)（テーブル内の列はこの順番となります）にテキスト形式で登録していきます｡
登録したデータを見には、日にち入力すると、Changeイベントでその日に入荷される連番、商品名、取扱者のみが表示されます｡
また、表示されたリストボックスを選択すると上記にも記載しましたが、詳細事項（入荷時間等がテキストボックスに表示されます）、さらに、削除ボタンをクリックすることで、MDB内のデータを削除することも可能としていますので、その日の連番が欠番になることもあります｡
接続は、DAOを使い、SQLで抽出等を行っています｡
２ 質問したいこと 印刷したい日付(txt_日にち）を入力し、その日の入荷予定を表示し、印刷(cmb_印刷)をクリックすると、MDBから直接に詳細データを受け取り（シートに張り付けない）、シート１（sht_予定表）に用意した、定められた様式の位置(この部分は後で何とか自分で設定します)に詳細事項を含めた内容を印刷したいのです｡
さらに、様式は、５商品までしか印刷できません｡
ので5商品以上ある場合は、5商品まで印刷した後、シート２（sht_予定表BP）（空の様式）を上書きし、6商品目から10商品まで印刷をし、空の様式を上書き、11商品目から15商品まで印刷・・・【繰り返し】｡
なお、一日の商品数は50商品未満となります｡
商品の詳細表示までできていますが印刷の部分ができません｡
面倒なことを聞いて申し訳ありません｡
よろしくお願いします｡
Sub Del()Dim i As IntegerFor i = 5 To 35 If ActiveSheet.Range(Cells(5, i), Cells(6, i)) = "土" Or "日" Then If Not Intersect(Object.TopLeftCell, ActiveSheet.Range(Cells(7, i), Cells(11, i))) Is Nothing Then Object.DeleteEnd IfEnd IfNextEnd Subやりたいことは、E列からAI列の５行目６行目はそれぞれ結合して、そこに曜日が書かれてあり、その下の、７行から１１行にはオートシェイプがあります｡
その表の中の、土曜日と日曜日の部分だけ、オートシェイプを消したいです｡
私が考えたのはまず、変数iを整数型にしてFor 5 to 35 で１日から３１日までの土・日を探す｡
そして土・日の時はその列のまま、７から１１行にあるオートシェイプを削除するというものです｡
しかし最初のIf Activesheet.・・・・・・Then で「型が一致しません」とでます｡
範囲がだめなのかとRange("A1")にしてもだめで、"土"or"日"の方を数字にしてみたらとりあえずはエラーが出ませんでした｡
文字の場合はどのように指定すれば良いのでしょうか?
さらにそれを抜けても次の If Not Intersect・・・・・・Then で「オブジェクトを指定してください」と出ました｡
これについてはどこのことを言っているのかわかりません｡
もうすぐで完成なのですが、行き詰まってしまいました｡
ご教示お願いします｡
※オブジェクトの選択でまとめて消すやり方ではなく、VBAの中で行う方法をお願いします｡
セルａ１に最小値、ａ２に最大値がセットされており、セルｂ１からｂ１０の範囲にに６～１０分割した数値を記入する｡
但し条件があり、グラフのスケール値として使いたいので、数値は自動的に見やすくなるように上１桁～３桁は数値をその まま採用し、下数桁は０になるように見やすく丸めた数値にして下さい｡
例えば最小値－１００～最大値１２３，４５６の場合は －２，０００、 ０、２，０００、４，０００、６，０００、８，０００、１０，０００、１２，０００、１４，０００ というふうになるように （これは実際に－１００～１２３，４５６の間の数値をＥＸＣＥＬで入力してグラフ化すると 下記のように自動で最小値、最大値、目盛間隔が設定されます） 【最小値】－２００００ 【最大値】１４００００ 【目盛間隔】２００００ このロジックと同じような感じにしたいと思います｡
以上、宜しくお願い致します｡
（プロシージャの呼び出し、または引数が不正です｡
）恐らくLocation の書き方が変更されたか、読み取り専用になった（?
）のかと思うのですが、Msgboxで読み取って確認しても、従来通りファイルパスが示されるだけで、どうすればよいのかわかりません｡
ロケーション管理というのは例えば、余計なところを省くと、以下のようなものです｡
ターゲットトラックの現在のパス：C:\\iTunes Music\\Beatles\\Let It Be.mp3予めコピー済の同ファイルのパス：C:\\iTunes Music\\Index\\B\\The Beatles\\Let It Be\\06 Let It Be.mp3のとき、------------------------------------------------set iTunesApp = CreateObject("iTunes.Application")set selectedTracks = iTunesApp.SelectedTracksset current = selectedTracks.Item(1) current.Location = "C:\\iTunes Music\\Index\\B\\The Beatles\\Let It Be\\06 Let It Be.mp3"------------------------------------------------変更完了｡
この後、元ファイルを削除してロケーション移動完了という具合です｡
普段はiTunesのタグ情報から自動で割り振っていました｡
何かおわかりの方、お願いします｡
Macの情報でも歓迎です｡
http://my.yahoo.co.jp/
Ａ列から順に項目を作って、行に会社名を入れている表があります｡
そのレコードに何らかの変更があった場合に、（数値が変更になります）その行の最終入力日を（つまり当日の日付）最終列に自動的に表示したいのです｡
関数では無理だということなのでＶＢＡで調べたところ、以下の記述を見つけました｡
Private Sub Worksheet_Change(ByVal Target AS Range)If Target.Address(0,0)="D2"thenIf Range("D2")<>""Then Range("G2")=Format(Date,"m/d aaa")End IfEnd SubＤ列が変更がある項目が入っている列で、Ｇ列が最終入力日を表示する列です｡
この記述を使うとたしかに自動的にＧ２に日付が入るのですが、その行だけしかはいりません｡
１０００行目くらいまでデータを入れようと思っているのですが、どこの部分を変更したらいいのでしょうか?
これを機会にＶＢＡも勉強したいと思っています｡
どうぞ御教授お願いたします｡
マクロ初心者なので分かりやすくご教授ください｡
マクロ初心者です｡
会員さんの住所が入った住所録があり、ハガキに宛名を印刷したいのです｡
シート1には、会員さんの郵便番号・住所・氏名・家族などが、一覧になっています｡
シート２には、ハガキサイズに合わせたレイアウトで、シート1からVLOOKUPでデータを取り込めるようになってます｡
色々なサイトなどを見て、下記のようなマクロを設定し、印刷できるようにはなったのですが、毎回「印刷プレビュー」が出て、毎回「印刷」をクリックしなくてはなりません｡
会員数が７００名ともなると、結構な繰り返しになってしまいます｡
全部一気に自動連続印刷とはしなくても、５０～１００名分づつでもいいので、毎回クリックせずに自動印刷できるマクロの方法はあるでしょうか?
ちなみに、シート１名簿一覧には、印刷対象を注出できるように列を設けています｡
なので今は、２５名分づつ注出し、毎回「印刷プレビュー」→「印刷」をクリックして印刷しています｡
Sub printcard() Dim i As Long Dim LastRow As Integer Worksheets("地区だより").Select LastRow = Range("地区だより").Rows.Count + 1 For i = 2 To 683 If Cells(i, 5).Value = 1 Then With Worksheets("yoko") .Range("A1").Value = Cells(i, 1).Value .PrintPreview End With End If Next i MsgBox "印刷が終了しました" End Sub何卒、ご教授下さい｡
Copyright (C) 2010 All Rights Reserved.