Masa2072のプロフィール
- ベストアンサー数
- 94
- ベストアンサー率
- 51%
- お礼率
- 0%
- 登録日2008/04/16
- administraterの削除
win7 home でadministraterを削除するにはどうしたらいいですか。 win7のアカウントに管理者権限をつけて使ってました。 ところが「このファイルはadministraterでないと削除できません。」と言われてしまったので「すでにアカウントにadministrater権限をつけているのにな。」と思いながらadministraterのアカウントを作りました。 しかし、このアカウントはそのファイルを削除するときつかったきりで使わなくなりました。 ところが電源投入すると「どのアカウントでログオンしますか。」といちいちきかれて面倒になってきました。そこでadministraterアカウントを削除しようとしましたがコントロールパネル、アカウントの管理からではadministraterアカウントだけは削除できません。どうしたらこのアカウントを消して元どおりひとつのアカウントだけで使えるようになるでしょうか? もし、電源投入後「どのアカウントでログオンしますか。」きいてこない方法があれば、それでもいいですので、ぜひ教えてください。
- ベストアンサー
- Windows 7
- muramatuyukino
- 回答数4
- SQL2005 クエリ文について
いつもこちらで大変お世話になってます。 SQL2005です。 現在、「商品マスタ」というテーブルに、「単価」という列があり、ここには商品の単価が入っているのですが、「1663.2」 という様に小数点が入っているデータがあります。 これを切り捨てて「1663」という整数にしたいのですが、どの様なクエリ文になるのでしょうか? 先ほど、こちらでご指南頂き、データを1.05倍する、という更新は無事上手くいったのですが、小数点が出てしまいました。 どなたかご教授くださいませ。よろしくお願いします。
- ベストアンサー
- SQL Server
- zenigata711
- 回答数2
- VBA changeイベントにてVLOOKUPで検索する方法とエラーの
VBA changeイベントにてVLOOKUPで検索する方法とエラーの場合の方法 VBAは半年ほど独学で勉強してきましたが、どうにもならなくなったので、質問させてください。 以下、1つのブックです。 シート1<管理台帳> 4行目を入力行として、 B C D E F G H I J K L 伝票番号、日付、顧客名、顧客住所、集配地名称、集配地住所、数量A、数量B、数量C、備考、コメント などを入力。 マクロを使い、5行目以降にリストを追加。 (これはなんとか自分で作成できました) シート2<住所録> おもな顧客の住所録。 シート1のD4セルに顧客名を入力すると、このリストから検索して、住所、主な集配地名称、住所をE4~G4に。 (これもなんとかできました。) ここからがどうしてもできないのですが。 シート3<A伝票>(シート1の数量Aの集計作業等の為) K列に伝票番号を入力すると、シート1<管理台帳>から検索して、 L列に顧客名、M列に数量A、N列に備考、O列にコメントを表示したいんですが。 どうしてもうまくいきません。 自分で考えた末、伝票番号が文字列になっているのがいけないのかな?と思ったのですが・・・。 どう対処したらいいのかわかりません。 伝票番号は10桁。0からはじまるものもあるので、文字列として扱いたいです。 また、もし、伝票番号シート1に入力されていなかった場合、エラーメッセージを表示したいのですが・・・。 いろいろ試してみましたが、知識不足でなんともなりませんでした。 どなたかご指導いただけませんか?? めちゃくちゃですが、下に自分なりに作ったコードをのせます。 新年度から使いたい、と思っていたものなので、少し、急いでおります。 どうか、よろしくお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) '伝票を K列に入力すると、管理台帳から検索。 Dim rang1 As Variant Dim rang2 As Variant Dim 顧客名 As String Dim 数量 As String Dim 備考 As String Dim コメント As String Set rang1 = Columns("k") Set rang2 = Worksheets("管理台帳").Range("B5:X20").Value If Intersect(Target, rang1) Is Nothing Then Exit Sub Application.EnableEvents = False 顧客名 = Application.WorksheetFunction.VLookup(Target.Value, rang2, 2, 0) If TypeName(顧客名) <> "error" Then Target.Offset(, 1) = 顧客名 数量 = Application.WorksheetFunction.VLookup(Target.Value, rang2, 12, 0) If TypeName(数量) <> "error" Then Target.Offset(, 2) = 数量 備考 = Application.WorksheetFunction.VLookup(Target.Value, rang2, 18, 0) If TypeName(備考) <> "error" Then Target.Offset(, 3) = 備考 コメント = Application.WorksheetFunction.VLookup(Target.Value, rang2, 20, 0) If TypeName(コメント) <> "error" Then Target.Offset(, 4) = コメント Else End If End If End If End If Application.EnableEvents = True End Sub
- ベストアンサー
- Visual Basic
- comchan
- 回答数4
- アクセスでフォルダー内のデータ検索の仕方
お世話になります。 アクセス(エクセルからのインポート)のテーブルにxxxxxx.tifという6桁(xはすべて数字)の画像ファイル名を保存したレコードがあるとします。 また、Aというフォルダ内に、レコードに対応した、xxxxxx1.tif~xxxxxx5.tifと言う7桁の名前のファイルが保存されています。 アクセスの6桁のファイル名とAフォルダ内にある7桁中の上6桁は同じ数字で、下1桁で別ファイルとしてあります。 このたびアクセスを利用して、上6桁が合致したファイルを候補としてリストアップし、さらにそこからファイル名をクリックすると対象ファイルを閲覧することができるシステムを作ろうと考えています。 つきましては、アクセスで特定フォルダ内のファイルを検索し、候補を表示する方法をご教示いただければありがたいのですが。
- テキストボックスを使ったときの条件分岐について
テキストボックスを使ったときの条件分岐について ユーザーフォームを使って人事管理をしたいと思っています。 そこで、通勤距離を入力すると、通勤手当額が表示されるようにしたいのですがうまくいきません。手当額は変更があるために、エクセルのシートに入力します。 シートのA1からA5まで2,5、10、15、・・・という風に距離数が入ります。 B1からB5まで2,000、4,000、4,500、5,000、・・・と金額が入ります。 ユーザーフォームにテキストボックスを二つ置き、ボックス1に距離を入力するとボックス2に金額が表示という風にしたいのです。 2キロ未満は0、2キロ以上は2,000、5キロ以上は4,000、10キロ以上は4,500、15キロ以上は5,000という風に表示できるでしょうか? 本を片手にやっているのですが、何分力不足で八方ふさがりになってしまいまいた。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- kou557
- 回答数5